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Ao Leitor 

Estamos entrando em mais um piano economico 
e, e claro, torcendo para quetudo de certo. Nao sera 
por falta de torcida que desta vez as coisas nao 
funcionarao. 
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Mas, o mes de junho produziu algumas 
aberra?oes, nos acertos e acordos para a mudanga 
da moeda, que fomos obrigados a adiantar a produgao desta edigao. No 
entanto, as mudangas de ultima hora acabaram por impor uma nova ordem 
das coisas: circular a edigao somente apos a vigencia do Real. 



Com isso, algumas segoes da revista, ja tradicionais, nao ficaram 
prontas a tempo de integrar esta edigao. De qualquer forma, a partir do 
proximo mes tudo volta ao normal (e esperamos que isto tambem ocorra 
na economia). 



Renato Degiovani 
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Bits & Bytes 



Makron Books lanca 
livros na Fenasoft 

Pela oitava vez concecutiva, a Makron Books participa 
do mais importante e vento na area de informdtica: a Fenasoft, 
que acontecerdde acontecerdde 1 9 a 22 de julho, no paladcio 
das convengoes do Anhembi, em Sao Paulo. 

Durante a oitava Fenasoft, a Makron Books colocard a 
disposigdo do publico em geral, al6m dedi versos langamentos 
nos setores de informdtica, negdcios e de temas diversos, 
grande parte do acervo bibliogrdfico da editora. 

Detendo aprocimadaamente 40% do mercado editorial 
tdcnico, a Makron Books conta atualmente com 250 tltulos 
publicados na drea de informdtica e foi a primeira editora a 
langar livros de IBM PC no Brasil. 

Principals langamentos: 

Head- Guia AutoCad 3D 

Siegel - Dominando o Fox Pro 2.5 for Windows com apendice 
v.2.6 

Russel - As leis de Murphy para o Windows 
Carvalho - WindowsNT 

CADDesigner participa da 
oitava Casa Cor 

Apartirde 31 de margo at6 03 de julho, perfodo em que a Casa 
cor estara aberta ao publico, a partir das 1 1 :00hs em Sdo Paulo, 
apresentando 44 ambientes de desenvolvimento da mansdo de 
1220 m2 por 59 renomados decoradores brasileiros, os vistantes 
terdo oportunidade tambdm de conhecer o servigo da 
CADDesignner Computagdo Grdfica, que atravds da utilizagdo 
de sofisticados software, possibilitam aos usudrios finals apreciar 
os resultados obtidos na aplicagao de materials, iluminagdo e 
dimencionamento de todos os equipamentos da decoragdo. 

A participagdo da CADDesigner acontece dentro do texto 
estabelecido pelos organizadores da Casa Cor de atender aos 
mais exigentes gostos da sociedade, facilitando a leitura dos 
projetos de ambiente de interiores ou exteriores, jd que os 
equipamentos manufaturados podem ser vistos na tela do 
microcomputador, com todas as cores reais e devidamente 
dimencionados. 

A partir deste momento o servigo da CADdesigner abrange 
particularmente a possibilidade de leitura dos projetos de todos 
os angulos do ambiente decorado, partipando diretamente no 
processo decisdrio dos usudrios finals. 

Aos decoradores e designers, a computagdo grdfica tern sido 
uma importante ferramenta de comercializagdo de seus produtos, 
enquanto aos consumidores um auxflio imprescindfvel de decisdo, 
que agora estard d disposigdo de seus clientes da Casa Cor. 



Modem 32BIS no Brasil 

Atenta a essa necessidade, a Safe Informdtica langa no 
Brasil a linha de modens DM pabrdo V32Bis, fabricado pela 
Aceex, de Taiwan. Os modelos da linha DM tem velocidade 
de 14.400 bps, que os toma os mais rdpidos do mercado 
nacional , aldmde permitir maior otimizagdo na comunicagao 
de dados e redugdo de custo. Um dado importante para os 
usudrios: a linha DM jd vem no padrao Telebrds. 

A linha DM6 composta de dois modelos: o DM- 1414, um 
modem de mesa, e o DM-1414 BR para grandes usudrios, 
instalados em racks. Ambos os modelos funcionam como 
Fax, videotexto e correio eletrOnico e permitem a 
comunicagao de dados sem intervalos que encarecem o 
custo de transmissao. Os modens da Safe informdtica sao 
padrao CCITT e dispoe de um chip central que gerencia a 
recepgao e o envio de dados. 

Os modens DM-1414 e DM-1414 BR incorporam o 
conceito VLSI e operam com velocidade de 1.200 a 14.400 
bps. eles trabalham a dois fios duplex, tem auto dial e 
resposta automdtica. 

A linha DM da Safe Informdtica Integra todas as fungoes 
de comunicagao de dados, o que possibilitatanto ao pequeno 
quanto ao grande usudrio expandir a sua capacidade sem 
aumento significativo de custo. 

Software gerencia pontos 
devenda 

Depois de cinco anos de experiSncia no setor, prestando 
servigoaiojaseindustrias, a High Quality Servicesdescobriu 
um novo nicho de mercado: o formado por grupos 
empresariais interessadosemabrir diversos pontos de vendas. 

Denttro desse segmcnto, a HQS estd customizando um 
software para atender as exigSncias especfficas do setor. 
Desenvolveu um produto que tem a capacidade de fomecer 
informagOes individualizadas e consolidades de cada uma 
das lojas, al6m de ctq)tuiar todas as informiigdesdispomveis, 
centralizar dados e realizar o que se denomina gestao 
empresarial. 

Isso permite um controle geral de todas as lojas, e cada 
uma delas de maneira separada. Assim, a)6m de centralizar 
! ascompras, pode-se detalhar as vendasrealizadas,osestoques 
em questSo, o produto que tem a maior saida. O escritdrio 
: central consegue gerenciar todaa parte de distribuig3o - tal 
I pedido para tal loja - al6m da performance de cadaum. 

Este software criado pelos profissionais da HQS fomece 
ainda convers3o para duas moedas, cddigos de barra e, 

: completo controle da parte fiscal e contdbil, centralizados. 
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CRAZYsoft INFORMATICA (TEL: (Oil) 456-8373) 

Av. Tiradentes,433 sala 5 - Diadema - SP - CEP: 09911-190 



r MENORES PREgOS 

Disco c/ gravasao: 
Disco 514 DD - R$ 1, 

Disco 5V4 HD - R$ 1. 



Correio 



REgOS V Pedidos: por carta ou fone de Seg. a Sex das 9:00 as 19:00 aos Sib. das 9:00 as 15:00 
va?ao: relacione o Nome e a Quantidade de discos de cada programa. 

- R$ 1,00 Pagamento: envie um cheque nomial a RICARDO FREIRE BEZERRA no valor total de 

- R$ 1,50 seu pedido, ou fa?a um depdsito na seguinte conta: BRADESCO Ag. 0272-0 CC. 0107494-6 



- R$ 2,50 1 Envie xerox do depdsito junto ao pedido, nao esque?er de adicionar a taxa de correio. 



(para cada 20 Diskettes) yyiolicite catilogo grids com a completa relagao de jogos e aplicativos. 






ALCNE IN THE DARK II 
ALTERED BEST 
B-WING (MIS90ES) 



CRAGCN'S LAIR.lV 

UtC n 

EIGHT BALL DELUXE 
EPIC 

FLASH BACK 
GCBLLNG II 
HOME ALCNE II 
INDY CAR RACING 
JORDAN IN FLIGHT 
JURASSIC PARK 
KEEN'S LABXRINr 
LEGEND OF KYRANDIA II 
LEISLFE SUIT LARRY V 
UMGNG'S THE TRIBEE 
LINKS 386 PRO (SVGA) 
L0IUS SPIRIT TURBO 
MANIAC MANSI CN II 
MARIO BROS IS MJSSIN 

rMO^TAL KpMBAT 

nigSTJOWSEET 

OSCAR 

PIMBALL FANTASIES 
PIRATES GOLD 
FRINC2 CF PERSIA II 
RETURN OF PLATOON 
ROBOCOP 3D 
SAM t MAX 
SANGO FIGHTER 
SHADOW OF THE COMET 
SHADOW PRESIDENT 
SHERLOCK HOLMES 
SIM CITY 2000 
SPACE HULK 
SPEED RACER 
SEAR TREK: JUDGM. RTT 
STREET FIGHliR II 
TASK FORCE 1942 
TERMINATOR RAM PAG 
THE LOST VDCDCS 
TORNADO 

ULT. UNDERWORLD II 
ZOOL 



3D IMAGE 

mo n 

/AEV3JTURE TOOLS KIT 

AMNESIA 3 

AQUARELA 
ARJ 2.21 
ARTIST 
ASTRO 
ATLAS PC 

BAND IN THE BOX (SB) 
BANNER MANIA 
BAR CODE 
CHECK IT 
COLLAGE 
COMPUSHOW 2 
CRYSTAL 
D -A..P V. 147 



AgXO - AVENTURA 

007 LICECE KILL 
ASTERIX 

BABY JO IN GOING HOME 
BACK TO FUTURE II 
BARBARIAN 
BATMAN THE MOVIE 
BRUCE LEE LIVES 
CABAL 

CAPTAIN COMIC II 
COLORADO 
COMMANDER KEEN VI 
CONTRA 
CRISTAL CAVES 
CYBERGENIC RANGER 
DICK TRACY 
DOUBLE DRAGON III 
ERAXN'S LAIR III 
EL CAPTAIN TRUENO 
GHOST N‘ GOBLINS 
CNOSTBUSTERS II 
GODS 

GOLDEN AXE 
GREMLINS II 
HOME ALONE 

IND. JONES LAST CRUSADE 

JUL CF TFE JJCLE U 

KARATEKA 

MARIO BROSS 

MEGA MAN 

MOONWALKER 

QBE RATI ON WOLF 

/^PANZA KICK BO XER 

PREDADOR II 
PRINCE OF PERSIA 
RAMBO III 
RENEGADE 
ROAD RUNNER 
ROBOCOP 
ROGGER RABBIT 
SHIN0BI 
SXMPSCNS II 
SPACE ACE II 
SUPER CONTRA 
TARTAWJGA NINJA III 
TERMINATOR II 
THE FIRST SAMURAI 
THEXEES II 
TOM & JERRY 
VTOLFEINSTAIN 3D 



ADVENTURE - RPG 

ALONE IN THE DARK 
AMAZON 

BATMAN THE RETURN 
CARMEN S. DIEGO DELUXE 
DARK LAND 
DARK SEED 

DUE n 

BCD'S QUEST 
ELVIRA H 

EYE CF BEHOLDEER II 
FIVEL IN AMERICAN TAIL 
GALUCNS OF GLORY 
GOBLINS 
HULK 

IND. JUNES FATE ATLANTIS 
INPECTOR GADGET 
KEEN'S CF QUEST VI 
LEGEND OF KYRANDIA 
LOOM 

MICTfT & MAGIC III 
REX NEBULAR 
ROBIN HOOD 
STAR TREK V 
ULTIMA UNDERWORLD 
VINGANCE OF ESCALIBUR 



ALPHA WAVES II 
BLOOD MONEY 
ECHELON 
ELITE 
GALACTIX 
KILO BLASTER 
MACH III 
MAJOR STRIKE 
MANTIS EXP. FIOfT 
MATCH WARRIOR 
PLAN 9 OTHER SPACE 
STAR CONTROL 
STAR DEFENSE 
STAR LEGIONS 
SIHIAR 7 
STRIKE COMMANDER 
TIE FTGWIER 
TWILIGHT 2000 
VOLFIED 

WING COMMANDER 

X-WING 

XENON II 



SIMULADORES 

688 ATTACK SUB 

A-10 TPNK KIUFR n 

ACES OF PACIFIC 

AIR WARRIOR 

B-17 FLYING FORTNESS 

BATTLE BRITAIN 1942 

BATTLE HAWKS 1942 

BLUE MAX 

F-14 TOM CAT 

F-15 STRIKE EAGLE HI 

F-16 COMBAT PILOT 

FALCON 3.0 

FLIOTT SIMULATOR 4.0 

GREAT NAVAL BATTLE 

GUN SHIP 2000 

JET FTG-HER II 

LHX ATTACK CHOPPER 

M- 1 TANK PLATOON 

MIG -2 9 FULCRUM 

RED BARON 

SHERMAN M-4 

SKI CHASE 

STUNT ISLAND 

TORNADO 

WOLF PACK 



1000 MIGLIAS 
4X4 OFF ROAD 
CAR & DRIVER 
FERRARI FORMULA 1 
GRAND PRIX UNLIM. 

HARD DRIVIN 
LNDYANAPOLIS 500 
MCROSS SUZUKI 250CC 
MOON SHINE RACER 
OUT RUN 
PIT STOP 2 

pcle PoemcN ii 

POWER DRIFT 
SITO PONS 500CC 
STUNT 

STUNT DRIVER 
SUPER HANG ON 

'TBMt SUZUKI- 

( TFgT OUVE ILL _ 



BATTLE CHESS WINDOWS 
BATLLE CHESS 4000 

JIMY WHITE SNOOKER 
MONOPOLY FOR WINDOWS 
POKER FOR WINDOWS 
SARGON 5 
SILVER BALL 
SIRIF FCKER HI 
TRISTAN 

VEGAS GAMBLER 



BLOCK OUT 

BRIX 

CD -MAN 

CREEPERS 

HOE.. .THIS III 

INCREDIBLE MACHINE 

J-BIKD 

JIG SAW iUZZLE 
LEMMING'S 
MAXINE HEAD BOOM 
MICKEY MOUSE 
PACK GAMES WIND. 
PUSH OVER 
SOKOBAN 
SQUARES 
SUPER TETRIS 
TETRIS 
WELLTRIS 
X-MAS LEMMING'S 
X-ROCK 

PORNO & EROTICO 

ADULT GAMES 
BUNNY'S BEACH BALL 
COBRA MISSION 
EAST US WEST 
NIKKI 

PENTHOUSE JIG SAW 

POOR MANDY 

PORNO IV 

ROME 

SEX 

SUPER PORNO 






PARA PC-XT-AT 



ED. GRAFICO 3D 
FORMAT A COM 800KB 
ED . JOGOS / 

"TOKTCKAf t HUSK — . 
ED. GRAFICO 
COMPACTADOR 
ED. GRAFICO 
ASTROLOGIA 
ENCICLOPEDIA 
ED. MUSICAL 
ED. DE FAIXAS 
ED. CODIGO DE BARRA 
CHECX-UP DE MICRO 
ED. DE SLUE 
DEMO DE TELA 
CRAPICOS 3D 
DESTRAV. DE JOGOS 
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1 II i !■ 11 1 — 


JTTDD 


NST - NOISE TRACER 


ED. MUSICAL 


10 DD 


ORACLE 


TAROT & I CHTNG 


01 DD 


ORGAO ELYTRON I CO 


TECLADO MUSICAL 


01 DD 


PASCAL TOOLS 


UTIL. PARA PASCAL 


03 DD 


PC GLOBE 4 . 0 


ENCICL. GEOGRAFICA 


01 HD 


PC ORGANIZER 


GERADOR DE MENUS 


01 DD 


PC WRITE 


ED. TEXIO 


01 DD 


FK ZIP 2.04 


COMPACTADOR 


01 DD 


PRINT MASTER 


ED. CARTAZES 


01 DD 


PRO DOS 


CCNV. * .BAT P/ * .EXE 


01 DD 


PROF. INGLES 


ENSINA INGLfS 


02 DD 


FUH.TFH rr 


DESKTOP PUBLISHER 


08 DD 


SKY GLOBE 


MAPA ESTRELAR 


01 DD 


THE MUSIC CONSTRUT. 


ED. MUSICAL C/ PART. 


01 DD 


TURBO FLOW 


ED. DE FLUXOGRAMA 


01 DD 


VISUAL COMPOS. (AD) 


ED. MUSICAL 


01 HD 


VISUAL PLAYER 2.0 


DEMO MUSICAL 


01 HD 


VGA COPY 5.0 


COPIADOR 


01 HD 





FOR WINDOWS 




1000 ICONES 


ICONES P/ WINDOWS 


01 DD 


AFTER DARK II 


protecAo DE TELA 


01 HD 


BB VIEW 


CARREGAR DE TELAS 


01 DD 


DIRETORY INFORMATION 


FERRAM. WINDOWS 


01 DD 


ENCORE (S. BLASTER) 


EDITOR MUSICAL 


02 HD 


FM SONG PLAYER (SB) 


ED. MUSICAL 


01 DD 


FT£H 3 


PROTECXO DE TELA 


01 DD 


FONTS FOR WINDOWS II 


NOVOS TIPOS DE LETRAS 


01 HD 


IOCN-HEAR-IT 


ICONES ANIM/SOM 


01 HD 


KWIK DRAW 


EDITOR CAD 


02 HD 


^MODPLAY FOR WINDOWS') 


~ T*R0GRAMA--M1JSICAL Xl 1 DD ^ 


MORE WAVES II ~ 


EFEITOS SONOROS 


06 DD 


MOVE FOR WINDOWS 


COPIADOR 


01 DD 


ftTS FILES FTNLER 


COMPACTADOR 


01 DD 


PK ZIP FOR WINDOWS 


COMPACTADOR 


01 DD 


PICTURES ABC 


PROGRAMA INFANTIL 


01 DD 


SOUND FOR WINDOWS 


SONS P/ SPEAKER 


01 DD 


TIME FRAM 


RELOG IO AUTOMATI CO 


01 DD 


THE MOON TOOC 


MAPA LUNAR 


01 DD 


WGOLDIE FOR WINDOWS 


AHIMACto gbAfica 


01 DD 


WIN WAVE (S. BLASTER) 


MUSICAS P/ WINDOWS 


03 HD 


WINDOWS UTILITIES 


FERRAM. P/ WINDOWS 


01 DD 



HaTENCAO: 



• PARA GRAVAgOES (24 HORAS) 
PEDffiOS ACIMA DE 15 DISKETTES + 1 HD DE BRINDE 




ARTIGO 



Programas Pouco Amigaveis 

Conhega dos problemas de incompatibilidade entre programas para 
os micros Amiga 



Flivio Massao Matsu moto 



Para acompanhar a evolugao tecnologica os 
microcomputadores Amiga vem sofrendo constantes 
modificagoes, com o langamento de novas maquinas como 
a atual geragao de conjunto de chips AGA de 32 bits (CD32, 
A1200, A4000/30 e A4000/40). Os projetistas da Commo- 
dore fizeram umgrande esforgo para manter a compatibilidade 
com os modelos anteriores, porem muitos programas 
(principalmentejogose demos) falham nas novas maquinas. 
Isto ocorre porque os programadores nao seguiram & risca 
as recomendagoes da Commodore, executando 
procedimentos considerados ilegais ao sistema. £ possivel 
que muitos usuariosdo A500 (provavelmente o modelo mais 
difundido no pats) sintam-se encorajados a troca-lo por um 
A1200 pois seu prego tern abaixado bastante, mas nao o 
fazem exatamente portemerem perder o acervo de softwares 
que possuem hoje. 0 objetivo deste artigo e mostrar que 
certos problemas de incompatibilidade podem ser superados, 
desde que se utilizem as ferramentas adequadas. 

A propria ROM Kickstart 3.0 contem um recurso para 
emular as maquinas antigas, e que se chama Amiga Early 
Startup Control. Para acessa-lo basta manter pressionados 
os dois botoes do mouse durante a inicializagao do Amiga 
(ap6s ligar a fonte de alimentagao ou apos um reset do 
sistema), ate que um menu suija na tela. 

As seguintes opgdes estao dispontveis: 

-Boot options: permite selecionar a partirde qual dispositive 
fazer o boot (normalmente o drive DFO:), e ainda desativar 
drives, partigdes de disco rigido e o slot PCMCIA para salvar 
espago da RAM. Tambdm permite desativar a memoria 
cache interna que faz parte das CPUs MC68020 ou mais 
avangadas, e que servem para guardar os conteudos da 
RAM acessados recentemente para diminuir o tempo de 
acesso. Apesar de aumentar o desempenho do processador 



este procedimento pode levar a destruigao de programas 
auto-modificaveis (como os encontrados em certos tipos de 
protegao contra a copia) devido a discrepancy entre a RAM 
e o cache. 

-Display options: permite escolherafrequenciade operagao 
do Video, entre NTSC (60 Hz) e PAL (50 Hz), este ultimo 
adotado na Europa e que portanto deve ser usado nos 
programas oriundos deste continents. Tern exatamente a 
mesma fungao q ue o programs PAL-Booter para as maquinas 
antigas. Alem disso, pode-se escolher o conjunto de chips 
que deve ser emulado para obter uma melhor compatibilidade 
entre “Original", "Enhanced" (ECS que equipam os A500+, 
A600 e A3000) e "Best Available” (AGA). 

-Expansion Board Diagnostic: mostra informagoes sobre as 
placas de expansao presentes nos slots. 

-Boot: sai do menu e executa o boot. Se nao quiser que o 
Startup-Sequence seja executado basta clicar o botao “Boot 
With No Startup-Sequence”. 

A opgao de maior compatibilidade seria de “CPU Cache 
off” e “Original chip”, sendo que segundo a Commodore 
mais de 60% dos programas existentes funcionam 
simplesmente com o Early Startup Control. Ainda assim 
muitos programas sao perdidos, e para contornar isto 
surgiram varios utilitarios de dominio publico que serao 
apresentados a seguir. 

KillAGA 2.0 

Este e um programs de autoria de Jolyon Ralph e pode 
serdistribuldo livremente. A documentagao e simples porem 
contem todas as informagoes essenciais. Normalmente 
para mudar o tipo de chip emulado (original, ECS ou AGA) e 
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necessario dar o boot, mas com este pequeno utilitario 
pode-se executar um programs problematico no modo nao- 
AGA e ao final deste retomar ao modo AGA. Sua agao 
consists em desabilitar os registros do AGA, restringir as 
resolugoes dos sprites para o modo ECS e desabilitar todos 
os caches. Com isto grande partedaincompatibilidade pode 
ser superada. 

Para utiliza-lo basta digitar a partir do CLI: 

KILLAGA “nome do programs” 

ou ainda a partir de um script. Como necessita do CLI para 
ser executado, este programs nao pode ser usado para 
discos fora do padrao AmigaDOS (NONDOS Disk). Para os 
que nao gostam de operar via CLI o programador Fabian 
Nunes elaborou o WBKillAGA que Ihe providencia uma 
interface iconografica via Workbench. 

FAKEMEM 

Nao se conhece o autor e a sua documentagao e 
escassa. 0 A1200 padrao vem com 2MB de Chip RAM e 
nenhuma Fast RAM. Basicamente o que este programs faz 
e restringir o uso de Chip RAM em no maxi mo 512KB e com 
o restante emular a Fast RAM. 

DEGRADER 1.30 

Este programs § o que apresenta maior nQmero de 
opgdes para compatibilizar o hardware para os programas 



antigos(seu nomesugere umadegradagaode umcomputador 
de melhor desempenho). Seu autor e o Chris Hames 
(programador do excelente PC-Task) e o Degrader e de livre 
distribuigao e uso. 

0 manual e excelente e contem informagoes tecnicas 
detalhadas sobre os problemas da compatibilidade. Pode 
ser executado a partir do CU ou do Workbench, quando surge 
entao um painel com as varias opgdes dispomveis. 

-S0Hz/60Hz e 50HzSystem/60HzSystem: forga o 
computadortrabalhar nafrequencia de varredura PALeuropeia 
ou NTSC americana. 0 Early Startup Control da ROM 3.0 
possui fungao similar. 

-AudFllterOff/AudFllteiOn: desliga/liga o filtro de audio do 
Amiga, que poder ser acompanhada pela intensidade do 
LED do Power. 

-NoFastMem: no passado o custo da RAM era bastante 
elevado, assim raros eram os Amigas que possulam expansao 
de memoria. Por causa disto alguns programas muito 
antigos so funcionam na presenga da Chip RAM . Esta opgao 
simplesmente desativa a Fast RAM. 

-HalfMegChlp: restringe a quantidade de Chip RAM em 
512KB. 

-OneMegChlp: forga a quantidade de Chip RAM maxima em 
1MB. Note que somente os Amigas com ECS (A500+, A600 
e A3000) ou com AGA podem suportar ate 2MB de Chip RAM . 
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Nos pacotes PC SHARE voce encontra 
os melhores programas Shareware lLa J 
e Domfnio publico do mercado. 

CONFIRA S6: 

PC SHARE - Utilitarios para MS-DOS 1 disco de 

1.2Mb (Compactado) + ou - 2.5Mb (Descompactado) rf ^ 

Numeros tBsponiveis: 01,02,03,04,05 e 06 10 URVs 

PC SHARE FOR WINDOWS - Utilitarios para Windows um disco 
de 1.2Mb (Compactado) + ou - 2.5Mb (Descompactado) 

Numeros tBsponiveis: 01,02,03,04 e 05 10 URVs 

PC SHARE GAMES - Jogos selecionados para Ega/Vga/Cga 2 
discos de 1.2Mb (Compactado) + ou - 5.5Mb (Descompactado) 
Numeros tBsponiveis: 01,02,03,04,05 e 06 13 URVs 

SEXY SOFTWARE - Animagoes e fotos digitalizadoa com as mais^ 
belas gatas do cinema porno VGA 2 discos de 1.2Mb (Compactado) a 
+ ou - 5.5Mb (Descomp.) 

Numeros tBsponiveis: 01,02,03,04,05 e 06 13 URVs J 

Promogao: Nas compras acima de 20 URVs desconto 
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de 15% no valor do cheque. 



Relacione os pacotes desejados.junte um cheque nominal a ( Andre Luis Castanheira dos Santos ) com o valor 
do seu pedido. E envie para PC SHARE: Caixa Postal 30037 - Cascadura - Rio de Janeiro - RJ - Cep: 21352 - 970 
Seu pedido sera enviado no praso maximo de 5 dias. Tel. Residencial (021) 350 - 40-53 



-NoMemAt: exclui blocos da lista de memorias do sistema, 
indicado quando ha algum conflito de enderegamento. 

-AddMem: adiciona blocos de memoria a lista, muito util 
para as placas de expansao que nao sao auto-configuraveis. 

-NoCache: desliga cache interno da CPU 68020 ou mais 
avangadas, que podem corromper programas auto- 
modificaveis. A ROM 3.0 possui fungao semelhante. 

-Privilege: muda a instrugao “move SR,<ea>" para "move 
CCR,<ea>”, uma vez que a primeira se tomou privilegiada a 
partir da CPU 68010. 

-TlmeWaste: toma a operagao do computador mais lenta, 
porem nao funciona com todos os programas. 

•BlockDevIce: bloqueia a adigao de alguns dispositivos 
(drives extemos, discos rigidos, cartoes PCMCIA, etc.) ao 
sistema. 

-CachesOn: o sistema operacional ativa os caches da CPU 
68030 ou 68040 somente quando e executado o comando 
SetPatch. Esta opgao ativa os caches quando nao e possivel 
executar o SetPatch. 

-Enlighten: os recursos extras dos chips AGA sao ativados 
somente apos o SetPatch. 0 enlighten permite que programas 
em discos NONDOS possam utilizar todo o potencial deste 
chip set desde que sejam corretamente escritos para tal. 

-PronioteAll: funciona com ROM a partir de 2.0, permite que 
um programs possa utilizar um monitor de video especrfico, 
desde que se possua um device driver apropriado. 

-NoVlew: somente para as maquinas AGA, cria uma tela em 
branco com emulagao do sistema em ECS. 

Apos feitas as escolhas apropriadas pode-se sair do 
programs, executar o Bootblock ou ainda deixa-lo residents 
durante um Reset ou durante varios Resets. 0 Degrader 
permite que muitos programas funcionem corretamente, 
desde que se encontrem as opgdes apropriadas. A 
combinagao correta dever ser achada por tentativa ou erro, 
mas ainda assim ha programas que insistem em dar 
problemas. 

KICKSTART 1.3 PLUS 

Durante muitos anos a versao da ROM corrente foi 1.3, 
e muitos programas surgiram neste periodo. Com o 
langamento do A3000 suigiu a versao 2.0 do sistema 
operacional, que apresenta sem duvida melhoramentos 
substanciais em relagao ao seu antecessor. Porem isto 
trouxe tambem uma serie de incompatibilidades e muitos 
programas foram perdidos. Rnalmente com a chegada das 
maquinas AGA foi trazido o Kickstart 3.0, com o mesmo 
problems. Uma solugao possivel e por meio de um hardware 



especial (ROM Sharer ou Switcher) que permite selecionar 
entre dois chips com ROM 1.3 e 2.0 que podem ser 
selecionados antes do boot. 

Outra solugao e o Kickstart 1.3 Plus que e um programs 
que possui o conteudo de todos os 256KB da ROM 1.3 num 
arquivo. Quando e dado o boot com este disco o arquivo e 
passado para a RAM e o enderegamento da ROM e 
redirecionado para esta regiao da memoria. A partir disso o 
computador funciona com o sistema operacional 1.3 e nao 
sai dele mesmo apos um reset, assim nao e necessario 
carregar toda vez o KS1.3 Plus quando for dar o boot. A 
desvantagem obvia deste procedimento e o consumo de 
RAM para emular a ROM, o que pode ser problematic® para 
maquinas nao expandidas. Alem disso pode ter seu conteudo 
adulterado por outros programas. 

Aqui no Brasil existem versoes deste programs 
comercializadas com o nome Relokick 1.3, porem na 
documentagao presente no disco e citado como Kickstart 
1.3 Plus. Sua autoria e desconhecida e a documentagao 
esta em idioma estrangeiro (polones, talvez?). 

CONCLUSAO 

Nao foi citado neste artigos alguns "Patches” que 
corrigem certos jogos que nao funcionam nos micros AGA, 
em especial o A1200. Isto decorre do fato do autor nao ter 
testado nenhum deles, muitas vezes por nao possuir o 
referidojogo. Rea um alerta aqui quetais Patches funcionam 
somente em programas originals, nao adiantatentar aplicar 
naquele disco "extra-oficial”. 

Quando e feita uma atualizagao para uma maquina mais 
nova, necessariamente tern que se fazer tambem uma 
atualizagao no acervo de programas, principalmente quando 
se quer utilizar todos os novos recursos dispomveis na 
arqu'itetura AGA. Mesmo assim esta atualizagao nao e 
possivel num tempo curto, devido ao grande investimentode 
tempo e de dinheiro ja feito. Assim seriadesejavel que 

todos os antigos programas fossem ao menos compatlveis 
com as novas maquinas, mas nao e o que ocorre sempre. 
Existem programadores que possuem suas proprias razoes 
para fazer acessos ilegais a ROM e ao hardware, violando 
normas fixadas pela Commodore e disto resultam serios 
problemas de incompatibilidade. Neste caso quern sofre e 
o usuario final, que tern de optar entre permanecer com um 
sistema obsolete ou adquirir uma maquina mais potente, 
correndo o risco de ter que reinvests em novas versoes dos 
programas, se estiverem dispomveis. 

Neste artigo mostrou-se algumas solugoes que podem 
ser adotadas para se contornar este problems, apesar de 
nao serem eficazes em 100% dos casos. Mas baseado na 
propria experiencia do autor pode-se afirmar que o numero 
de programas irremediavelmente perdido e relativamente 
pequeno, e estes podem ser substitutdos por outros mais 
novos que em geral sao de melhor qualidade. 

FLAVIO MASSAO MATSUM0T0 faz pds-graduagao em 
HH| Qufmica Inorganica no Institute) de Qulmica da USP e e 
usuariodeumTK90XeumAmigal200. Tambem opera com 
micros AT386 acoplados a instrumentos cientificos. 
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MODEM INTERNO DE VIDEOTEXTO PARA PC XT/AT 

Placa de modem interna para ser conectada em qualquer dos slots do PC XT/AT/286/ 
386/486. Facil instalagao e baixo consumo. Acompanha manual de instalagao e 
operagao, e disquete com programa de acesso do videotexto homologado pela Telesp. 

MODEM EXTERNO (DE MESA) DE VIDEOTEXTO PARA PC XT/AT 

Portatil, de mesa, usa a porta serial do micro. Ideal para Laptops, possui leds 
indicadores de portadora, recepgao, transmissao e alimentagao. Compativel com PC 
XT/AT e portateis. 

MODEM DE VIDEOTEXTO PARA MSX 

Transmite e recede em 1200/75. Discagem automatica, rediscagem automatica em 
caso de numero ocupado. Contem software residente (Firmware) para operagao no 
videotexto. Produto homologado pela Telesp. 

ESTABILIZADOR / FILTRO DE LINHA / BASE DE MONITOR 

Estabilizador de voltagem com capacidade de 800 VA / 1 KVA (volt amperes ou Watts), 
permite que a tensao de entrada caia ate 95 volts, mantendo a salda estabilizada em 
110 volts. Sistemas de compensagao de voltagem via circuito magnetico, o que 
proporciona compensagao de voltagem com ausencia de picos de comutagao na 
salda, fato comum aos estabilizadores convencionais. 

DESPACHAMOS PARA TODO O BRASIL 

DATAGAME ELETR6NICA LTDA 
FONES : (Oil) 570-7471 E 574-8990 
ESTAMOS CADASTRANDO REVENDAS 
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Visual Basic - Parte 6 

Projeto Windows Shell 



Ricardo Flores 



0 projeto WinShell 
permitira rodaroutros 
aplicatiwsfeitospara 
Windows ou para 
DOS. Como pode ser 
observado, a Barra 
de Menu possui um 
menu Arquivo, que 

acionado exibe dois itens de menu. 

Se o Penteiho acionar Executar, sera exibida a InputBox 
abaixo. 

A fungao Input- 
Box$ criaum Qua- 
dra de Dialogo 
como voce esta 
vendo, ou seja, 
incluiosbotdesOK 
e Cancel, permite 
a exibigao de um 
aviso (Digite na 
caixa abaixo:), de 
uma legenda (Ro- 
dar...), bem como 
disponibiliza uma 
caixa de texto com 
um texto (Aqui 
Penteiho), onde o 
usuario digital dados. 0 que o usuario digitar na caixa de 
texto sera retomado pela InputBoxS. 0 Quadro de Dialogo 
da InputBoxS e modal, isto e, voce nao podera acessar 
outras janelas quando ele estiver ativo na tela. 

A sintaxe da fungao InputBoxS e a seguinte: 

XStringS =lnputBox$(aviso$ [,legenda$ [,texto$ [,x% 
[,y%]]]) e pode ser criada com o codigo: 
lnputBox$("Digite na caixa abaixo:', “Rodar...”, "Aqui 
10 MICRO SISTEMAS 



Penteiho” ,100 ,100) 

x% e y% aqui representados por 100 sao valores em twips 
que determinam a posigao do Quadro de Dialogo InputBoxS 
a partir do canto superior esquerdo da tela. Omitindo-se x% 
e y% o Quadro de Dialogo sera centralizado na tela. 

Inldando um Novo Projeto 

Menu File \ New Project \ Dimensione o Fomril com 4.155 
x 1.530 twips 

Encontre e mude a propriedade Name do objeto Fbrml para 

frm WinShell 

Propriedade Caption do objeto frmWinShell: Sem Titulo 
Clique o botao “Gravar Projeto Corrente” e digite: 
WINSHELL (Para nome do fbrmulario) \ OK 
WINSHELL (Para nome do projeto) \ OK 

Criando a Barra de Menu com a Janela de Desenho de Menu 

Ative o fbrmulario \ Menu Windows \ Menu Design 
Na caixa Caption, digite: &Arquivo \ Na caixa Name, digite: 
mnuArquivo \ Botao Next 

Na caixa Caption, digite: &Executar \ Na caixa Name, digite: 
itmExecutar 

Na caixa de lista Shortcut: [= Teclas de Atalho], selecione: 
Ctri+E 

Acione o botao para este item de menu ficar endentado 
Na caixa Caption, digite: Sai&r \ Na caixa Name, digite: 
itmSair 

Na caixa de lista Shortcut: [= Teclas de Atalho], selecione: 
Ctrl+R \ OK 

Rode o aplicativo para testa-lo. 

Escrevendo o Codigo Basic para ItmSair do frmWinShell 

Ative o menu Arquivo \ Ative o item Sair \ Complete o 
procedimento: 

Sub itmSair_Click ( ) 

End 

End Sub 
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Sem Tftulo 




Arquivo 


Executar... Ctrl+E 
Sair Ctrl+R 
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Rodar... j 


Digite na caixa abaixo: 


OK 

Cancel 
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Escrevendo o Codgo Basic para ttmExecutardofimWInShell 

Ative o menu Aiquivo \ Ative o item Executar 
Se ocorrer um eno, a execugao do programa vai para [= 
GoTo] o rotulo Aviso. 

Note que a fungao lnputBox$ retomara para a fungao Shell 
o que for digitado na caixa de texto da lnputBox$. 

Tipo 

Janela: 

1 

Normal com foco 

2 

Minimizada com foco 

3 

Maximizada com foco 

4 

Normal sem foco 

7 

Minimizada sem foco 

A fungao Shell tentara executar o aplicativo cujo nome 
recebeu da InputBoxS. A sintaxe da fungao Shell e Valor = 
Shell (comando$ [, tipo$]), onde comando$e o nome de um 
aplicativo, que tenha a extensao EXE, BAT, COM ou PIF e 
tipo$ define o tipo da janela em que o aplicativo rodara, 
conforms tabela d esquerda. 

Se a fungao Shell executar normalmente tal aplicativo, 
retomara para Valor um numero que identifica o programa 
para o Windows, ou seja o ID de tarefa do programa. 

Transformamos o ID em string [= Str] para mostra-lo 
como legenda de frmWinShell. 



Isto posto, complete o procedimento: 

Sub itmExecutar_Click ( ) 

Dim Execute As Integer 
On Error GoTo Aviso 

Execute = Shell(lnputBox$(“Digite na caixa abaixo:”, 
"Rodar...”, "Aqui Pentelho”, 100, 100), 1) 

frmWinShell.Caption = “ID nGmero: " + Str(Execute) 

Exit Sub 

Aviso: Todo label tern que terminar com : (dois 

pontos) 

MsgBox "Preste atengao po!”, 64, "Eno’ 

Exit Sub 

End Sub 

Rode o Projeto \ Faga varios testes digitando na caixa de 
texto da InputBoxS, por exemplo, calc ou control ou notepad 
ou ws \ Termine a Execugao do Projeto \ Salve-o 

DICA: Se o caminho do aplicativo que voce deseja rodar 
nao estiver informado na variavel Path do arquivo 
AUTOEXEC.BAT, voce tera que digitarna caixa de texto da 
lnputBox$o caminho complete, porexemplo, c:\lotus\lotus. 

Ate a proxima galera . 



== Ricardo Flores 6 Auditor e Diretor da Audit System, empresa 
especializada em Treinamento e Comunicagao Visual. 
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PREQO POR DISCO (INCLUSO) 
360 DD - 1,20 URV'S 
1.20 HD - 2,00 URV'S 
1.44 HD - 2,30 URV'S 
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LANCAMENTOS 




LEGENDS OF KYRANDIA II 


08/HD 


CORRIDOR 7 - ALIEN INVASION 


02/HD 




CHESSMASTER 4000 WINDOWS 


03/HD 


BATTLE ISLE II 


05/HD 




MASTER OF ORION 


05/HD 


RAPTOR 


03/HD 




INNOCENT UNTIL CAUGHT 


07/HD 


THE HORDE 


06/HD 




STAR TREK JUDGMENT RITES 


11/HD 


INDYCAR CRASH COURSE 


03/HD 




THE BEVERLY HILLBILLIES 


02/HD 


REUNION 


09/HD 




WASHINGTON SCENERY FS 5.0 


06/HD 


PACIFIC STRIKE ♦ SPEECH 


13/HO 




CYBERACE 


06/HD 


1942 - THE PACIFIC AIR WAR 


06/HD 




KRONOLOG THE NAZI PARADOX 


07/HD 


DETROIT 


02/HD 




POLICE QUEST IV 


12/HD 


RULES OF ENGAGEMENT II 


03/HO 




TRUMP CASTLE III 


03/HD 


AL-QADIM - GENIES CURSE 


05/HD 




DUNGEON HACK 


04/HD 


CANNON FOLDER 


02/HD 




F-14 FLEET DEFENDER 


04/HD 


ROBSON REQUIEM 


04/HD 




WINTER OLIMP1CS 


02/HD 


INHERIT THE EARTH 


06/HD 




QUEST FOR GLORY IV 


09MD 


LEGENDS OF MYRA 


06/HD 




HIRED GUNS 


02/HD 


CHAOS 


03/HD 




TFX TACTICAL FIGHTER EXP 


06/HD 


U.F.O. ENEMY UNKNOWN 


03/HD 




F/A 18 HORNET NAVAL STRIKE 


03/HD 








COMPANIONS OF XANTH 


04/HD 








ISLE OF THE DEAD 


04/HD 


UNNATURAL SELECTION 


07/HD 




JONNY QUEST 


02/HD 


SYNDICATE DATA DISK 


01/HD 




INCAN 


10/HD 


PINBALL FANTASIES 


02/HD 




ALONE IN THE DARK II 


06/HD 


THE RED CRYSTAL 


05/HD 




JURASSIC PARK 


03/HD 


CIVILIZATION FOR WINDOWS 


04/HD 




RAVENLOFT 


07/HD 


PRIVATEER + SPEECH PACK 


09/HD 




LOST IN TIME 


12/HD 


BLOODNET 


04/HD 




LITIL DIVIL 


06/HD 


THE PATRICIAN 


02/HD 




GABRIEL KNIGHT 


11/HD 


NHL HOCKEY 


04/HD 




SAM & MAX 


07/HD 


STARLORD 


03/HD 




BEAUTY AND THE BEAST 


02/HD 


V FOR VICTORY PACK 


02/HD 




BENEATH A STEEL SKY 


06/HD 


CARRIERS AT WAR II 


03/HD 




GREAT NAVAL BATTLES II 


04/HD 


TERMINATOR RAMPAGE 


06/HD 




ULTIMA VIII - PAGAN + SPEECH 


11/HD 


DRAGONSPHERE 


06/HD 




OSCAR 


03HD 


BRAM STOCKER'S DRACULA 


01 /HD 




LANDS OF LORE 


06/HD 


SIMCITY 2000 -SVGA 


02/HD 




COMANCHE MISSION DISK 2 


03/HD 


RAC RALLY II - NETWORK 


04/HD 




SEAL TEAM 


02/HD 


SSN-21 SEA WOLF 


05/HD 
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APLICATIVOS PARA WINDOWS 



* TOTALMENTE GARANTIDO CONTRA VIRUS 

* TODOS OS DISQUETES SAO GARANTIDOS CONTRA DEFEITOS DE 

* DAM OS SUPORTE TELEFONICO 



GRAVAQAO 
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CAPA 



Programando em modo SuperVGA 

Conhega os truques e macetes do modo de video mais importante 
do padrao VGA. 



Renato Degiovani 



A computagao grafica tem se desenvolvido muito a partir 
da popularizagao de maquinas mais potentes e velozes. Foi 
somente depois que os micros 386 se tomaram o padrao 
bSsico de aquisigao, para uso pessoal, que a industria de 
software encontrou mercado para viabilizar seus projetos 
mais interessantes. Ate entao, as produgoes graficas se 
limftavam aosgrandesequipamentos, ougrandesempresas. 

Mas a produgao em computagao grafica, para consumo 
via computador, ainda esbarra em questdes tecnicas de 
dificil solugao. Nao tanto pelo aspecto de hardware ou de 
engenharia de software, mas pelo tipo de mercado que se 
formou nesses Oltimos anos. 

Podemos dividir a computagao grafica em tres grandes 



Placas com chipset PARADISE 



SETMODs 


mov 


ax, 005fh 


int 


lOh 


ret 

SETBAN: 


push 


ax 


push 


dx 


mov 


dx, 3ceh 


mov 


ax, 50fh 


out 


dx, ax 


mov 


ah, [Banco] 


shl 


ah, 1 


shl 


ah, 1 


shl 


ah, 1 


shl 


ah, 1 


mov 


al, 9 


out 


dx, ax 


stl 


pop 


dx 


pop 


ax 


ret 



setores: para uso em video, como as vinhetas que vemos 
frequentemente na televisao; para impressao em papel, 
como o desktop publishing; e para midia digital, como temos 
visto em animagao por computador, multimidia, jogos, 
hipertexto, etc. 

Para que o computador seja usado como midia, ou seja, 
para que ele possa responder com eficiencia a uma produgao 
interativa, nos moldes e padroes das interfaces graficas 
atuais, 6 necessario que haja uma qualidade minima nas 
imagens usadas. Durante alguns anos acreditou-se 

incontestavelmente que seriam as super resolugoes, acima 
de 1000 pixels, por permitirem imagens mais proximas da 
realidade e com mais qualidade, as responsaveis pelo 
surgimento de um novo conceito de midia. Foi grande a 
corrida para as placas SuperVGA, com capacidade para 
manipular resolugoes maioies que essas. 

Mas, apesar do fato de que, quanto mais pontos por 
imagem, mais qualidade ela possui, esqueceu-se de um 
detalhe dos mais importantes: quanto mais detalhes, ou 
pontos, mais memoriasera necessario e consequentemente 
mais velocidade de processamento. As maquinas teriam 
entao que aumentarem muito seu poderde processamento 
para, por exemplo, produzir uma animagao em tempo real 
das mais simples. Ainda esta longe o dia em que veremos 
na tela de um 486, operando em uma resolugao acima de 
1000 pixels, uma animagao em tempo real e com qualidade. 

A questao tecnica estava sendo, ate bem pouco tempo 
atras.enfocadaporumanguloerrado. Nao e necessariamente 
a maior quantidade de pontos que determina se a imagem 
e boa ou nao, mas sim a quantidade de cores que podem 
ser mostradas ao mesmo tempo. 0 olho humano nao 
percebe os minusculos pontos das grandes resolugoes, 
mas nota claramente quando "falta” cor na imagem. 

0s fabricantes de placas estao entao se voltando nao 
mais para produzir resolugoes maiores, acima de 2000 
pontos, mas sim placas com majs cores. Isto explica o 
sucesso que as placas HiColor e TrueColor estao tendo no 
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mercado (veja box). 

Mas, apesar de todo o avango tecnologico que temos 
assistido, ainda falta muita coisa para termos de fato bons 
produtos com animagao. Vejamos algumas questdes: 

MEMbRIA: 

Paramanipularimagens, o computadorprecisadisporde 
uma grande quantidade de memoria. A memoria RAM e 
importante, mas nao essencial, pois por mais que se tenha, 
nunca sera o bastante. Veja a tabela de resolugoes / 
quantidade de memoria por tela a seguir: 



640 x 480 x 16 cores 150 Kbytes 

640 x 480 x 256 cores 300 Kbytes 

640 x 480 x 64 Kcores 600 Kbytes 

640 x 480 x 16 M cores 900 Kbytes 



800 x 600 x 16 cores 
800 x 600 x 256 cores 
800 x 600 x 64 Kcores 
800 x 600 x 16 Mcores 
1024 x 768 x 16 cores 
1024 x 768 x 256 cores 
1024 x 768 x 64 Kcores 
1024 x 768 x 16 Mcores 



235 Kbytes 
469 Kbytes 
938 Kbytes 
1.407 Kbytes 
384 Kbytes 
768 Kbytes 
1.536 Kbytes 
2.304 Kbytes 



1280 x 1024 x 16 cores 640 Kbytes 

1280 x 1024 x 256 cores 1.280 Kbytes 
1280 x 1024 x 64 Kcores 2.560 Kbytes 

1280 x 1024 x 16 Mcores 3.840 Kbytes 



Note que do 640 x 480 para o 1280 x 1024 ha urn 
aumento de resolugao de quatro vezes, ou seja, e preciso 
quadra pontes em 1280 x 1024 para equivaler a um ponto 
na resolugao 640 x 480. Mas nao e apenas isto. Com 
excegao da maior resolugao, todas as demais tern uma 
relagao de ponto de 1.33, ou seja, o ponto nao e propriamente 
umrirculo, mas uma especie de elipse gorda. Meio retangular. 
Na resolugao 1280 x 1024 a relagao cai para 1.25, o que 
produz um ponto mais redondo e portanto mais proximo do 
real. 



SUPORTE: 

Olhando a tabela, podemos notarque a melhor resolugao 
seria 1280 x 1024 x 16 Mcores , ou seja, True Color em super 
alta resolugao. Mas, acompanhe o racioctnio: se cada tela 
dessas tern o tamanho de 3.75 Megabytes, um segundo de 
animagao (24 quadras por segundo pelo padrao 
d nematografico) nos custaria 90 Megabytes. T ri nta segundos , 
que e o tempo de um comercial de televisao, sairia pela 
modica quantia de 2.700 Megabytes, ou 4,5 CDs completes 
(cada CD pode ter 600 Megabytes). 

Alem disso, seria necessario uma excelente performance 
do process ador para transferir cada uma das telas a tempo 
de completar os 24 quadras por segundo. De onde para 
onde? Bern, considerando que as placas de video possuem 
memoria apenas para mostrar uma tela, teremos que fazer 
a transferencia de algum outro lugar. 



De disquetes nao e possivel, pois haveria uma quantidade 
fantastica de trocas - 75 disquetes de 1.2 em me nos de 1 
segundo, para obter o tal segundo de animagao (nem o The 
Superman ou o The Rash). Do CD ROM tambem nao e 
possivel, pois a taxa de transferencia, mesmo dos mais 
modemos acionadores, nao e alta o suficiente. Da memoria 
principal, a 50 dolares o Megabytes, seria necessario uma 
maquina cujo valor de aquisigao estaria na casa dos 4.500 
dolares (so de memoria). Do HD? Talvez, afinal os super IDE 
possuem altas taxas de transferencia e uma quantia razoavel 
de Megabytes. 



Placas com chipset TRIDENT 



SETMOD: 




mov 


ax, 005dh 


int 


lOh 


ret 




SETBAN; 




push 


ax 


push 


dx 


mov 


dx, 3ceh 


mov 


al, 6 


out 


dx, al 


inc 


dl 


in al,dx 




dec 


dl 


or al,4 




mov 


ah, al 


mov 


al, 6 


out 


dx, ax 


mov 


dl, 0c4h 


mov 


al , Obh 


out 


dx,al 


inc 


dl 


in al,dx 




dec 


dl 


mov 


ah, [Banco] 


xor 


ah, 2 


mov 


dx, 3c4h 


mov 


al, Oeh 


out 


dx, ax 


sti 




pop 


dx 


pop 


ax 


ret 





VELOCIDADE: 

Mesmo que fosse possivel equacionar a questao da 
memoria onde estariam armazenadas as telas , ainda assim 
teriamos um prablema extra a resolver a velocidade de 
transferencia da memoria principal para a memoria de Video. 

0 PC, na definigao de alguns analistas, e como o camelo 
daquela piada, ou seja, o camelo seria um cavalo projetado 
por uma equipe de engenheiros. Na verdade, foram tarrtas 
as concessoes a compatibilidade com os primeiros micros 
que hoje aquilo que chamamos de PC processa uma 
quantidade extrade informagao apenas "parasercompativer. 

Esse tipo de computador nao foi concebido para 
computagao grafica e portanto nele, tudo sera mais dificil e 
complicado. Por exemplo: a imagem a ser mostrada na tela 
do monitor deverd estar numa memoria especial, que se 
encontra na placa de video. 0 processador nao se comunica 
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Placas com chipset OAKTECH 



SETMOD: 




mov 


ax, 53h 


int 


lOh 


ret 




SETBAN: 




push 


ax 


push 


dx 


mov 


al, [Banco] 


and 


al, 15 


mov 


ah, al 


shl 


al, 1 


shl 


al, 1 


shl 


al, 1 


shl 


al, 1 


or al, ah 




mov 


dx, 3dfh 


out 


dx, al 


stl 




pop 


dx 


pop 


ax 


ret 





com ela diretamente. Quando quer escrever algo na tela, 
mandamos a informagao para um determinado local da 
memoria principal e o processador da placa se encarrega de 
pegar essa informagao e coloca-la na memoria de video, 
numa correspondence de enderegos. 

Isto gasta tempo e velocidade de processamento, afinal, 
nao importa o quao rapido seu processador possa colocar 



a informagao num local determinado. 0 que ira importar 
mesmo e a velocidade com que a placa pega essa informagao 
e a coloca na sua memoria. 

A industria de hardware tern produzido placas mais 
velozes a cada ano e ja sao comuns placas aceleradoras, 
vendidas justamente para minimizar este problema. 

O MERCADO: 

Para quern esta apenas pensando em termos de uso, o 
raciocfnio termina por aqui, afinal, ja estaclaro que devemos 
adquirir o melhor equipamento posstvel. Muita memoria de 
armazenamento, alta performance de processamento, etc. 

Mas, para quern pretende criar programas e produtos 
para o mere ado de informatica, estas questoes nao sao tao 
simples assim, afinal o planejamento de um produto nao e 
direcionado para uma unica maquina, mas sim para um 
universo bem diversificado de sistemas. 

Dai, a solugao usada ter necessidade de ser a mais 
abrangente posstvel para que os resultados compensem o 
investimento. 

Quantas maquinas existem com cinco acionadores de CD 
conectados, placa True Color com 4 Mbytes, 90 Megabytes 
de memoria principal e mais de 400 Mhz de velocidade de 
processamento? 

£claroque isto e um exagero, como tambem e exagerada 
a ideia de que quanto mais resolugao, melhor. 0 correto e 
dizer que quanto mais cores, melhor. 



AS MODERNAS PLACAS SUPERVGA 

Ha algum tempo que o mercado de hardware nao faz 
alarde do langamento de maiores resolugoes graficas. 
Paramos, por enquanto, no formato 1280 x 1024. 

Isto pode ser explicado em parte pelo aumento de 
memoria e de velocidade de processamento que as 
resolugoes mais altas impoem ao sistema. Por outro 
lado, os usuarios comegaram a perceber que de nada 
adianta muita definigao e pouca cor, afinal, os programas 
teriam que "emular” aquelas cores que nao fossem 
posstveis, ficando dessa forma ainda mais lentos no 
tratamento das imagens. 

Com o adventodas placas HiColoreTrueColor, percebeu- 
se que uma imagem (por exemplo uma foto digitalizada) 
na resolugao 640 x 480 com mais cores que o padrao 
normal (16 ou 256) era superior a uma imagem com duas 
ou mesmo quatro vezes mais resolugao, mas com menos 
cor. 

Dat o sucesso que essas placas estao conquistando 
no mercado, nao esquecendo tambem que uma placa 
HiColor custa o mesmo que uma placa SuperVGA 
tradicional. 

Aproveitando o bonde, os fabricantes produziram 
sistemas de processamento e transference da informagao 
mais rapidos e passaram a vender essas placas como 
placas "aceleradoras" para Windows. Santo marqueting... 
Mas afinal, quern mandou o tratamento de video da 
Microsoft ser tao burro! 



A grande diferenga entre uma imagem tradicional VGA, 
em 256 cores, e uma imagem TrueColor e que neste 
segundo caso nao existe a palette de cores pre<lefinidas. 
Cada pixel e definido por um conjunto de tres bytes, 
indicando a intensidade de cada componente RGB. Dessa 
forma, dizemos que essas placas atingem a fantastica 
quantidade de 16.777.216 cores simultaneas natela, ou 
16 Mcores. 0 olho humano nao distingue nem a metade 
desse conjunto. 

As placas HiColor ainda trabalham com o sistema de 
palette, porem ela e aumentada de 256 para 65.535 
cores. Ja deu para perceber que uma palette desse 
tamanho ira exigir que o codigo do pixel seja um valor de 
16 bits. Como o barramento de dados entre a placa e o 
micro tambem e de 16 bits, mantem-se uma boa perfor- 
mance de processamento. 

Alem disso, 64 Kcores sao suficientes para resolver os 
mais intrincados tons em degrade. Sao raras as situagoes 
onde a necessidade de mais cores compromete a q ual idade 
da imagem. 

Essas placas ja estao tao disseminadas que programas 
como windows e seus aplicativos as aceitam sem maiores 
problemas. 

Mas, em que pese todas essas vantagens, esse 
aumento de qualidade nas imagens ainda impede que 
animagoes sofisticadas sejam executadas em tempo 
real. Para manipulagao de imagens estaticas, no entanto, 
a melhora de qualidade e de dar agua na boca de qualquer 
usuario. 
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PORQUEOMODO 256? 

Para quern planeja a criagao de produtos voltados para 
o emergente mercado de multimldia, uma das preocupagdes 
mais importantes e selecionar o modo de operagao com o 
qual se deseja trabalhar. Nos dias atuais, qualquer produto 
de Gltima geragao envolve, invariavelmente, boas imagens 
e alguma animagao. 

Essas questdes podem ate sertransparentes, quando se 
pensa em termos de Windows ou outro ambiente grafico, 
mas nunca se deve esquecer que, justamente por ser 
generico e pretender englobar todas as situagoes, esses 
ambientes tornam-se extremamente lentos no 
processamento de imagens. Em muitos casos, e 
imprescindivel que o produto, ou programa, assuma 
totalmente o controle dos perifericos (principalmente da 
parte relativa ao video). Sao esses casos que perm item uma 
produgao mais criativa, original, e com uma respostafuncional 
bem mais eficiente que os modelos adotados pela atuais 
interfaces graficas. Urn programa criado dessa forma nao 
fica com aquela "cara de coisa do Windows”. 

Sob este aspecto, tern se destacado a resolugao 640 x 
480 x 256 cores como a opgao que melhor responde aos 
requisites mais importantes da modema programagao grafica: 

- Velocidade de processamento: por nao manipular 
uma quantidade absurda de bits e bytes, esta resolugao 



Placas com chipset EVE REX 



SETMOD: 




mov 


ax, 7 Oh 


mov 


bl,30h 


int 


lOh 


ret 




SETBAN: 




push 


ax 


push 


dx 


push 


cx 


mov 


cl, [Banco] 


mov 


dx, 3c4h 


mov 


al, 8 


out 


dx, al 


inc 


dl 


in al, dx 




dec 


dl 


shl 


al, 1 


shr 


cl, 1 


rcr 


al, 1 


mov 


ah, al 


mov 


al, 8 


out 


dx, ax 


mov 


dl, Occh 


in al,dx 




mov 


dl, 0c2h 


and 


al, Odfh 


shr 


cl, 1 


jc SETBAO 




or al, 2 Oh 




SETBAO : 




out 


dx,al 


sti 




pop 


cx 


pop 


dx 


pop 


ax 


ret 





permite experiencias bem interessantes de animagao. Apesar 
disso, ainda nao e possivel produzir uma animagao de tela 
inteira, em tempo real. Os programas mais modemos 
apelam para a animagao de apenas partes datela (ou, como 
sao chamadas: janelas de animagao). Para se ter uma ideia 
da dimensao desse problema, basta ver que, nos meios 
profissionais e aceito como padrao de resolugao para 
animagao cinematografica um retangulo de 150 x 100 
pixels. Isto e pouco mais do que um “quadradinho” datela. 

-Armazenamento: por trabalhar com osistemade palette 
e ter uma reduzida quantidade de cores, o padrao 640x480 
x 256 cores permite obter excelentes taxas de compressao 
dos arquivos. Dependendo do caso, uma tela inteira pode 
ocupar poucas centenas de bytes. 

- Qualidade das cores: a possibilidade de edigao indi- 
vidual de cada corfaz com que o conjunto de cores da palette 
possa assumiros tons e matizes mais adequados para cada 
tela. 

- Qualidade do pixel: a relagao 1.33 e a quantidade de 
pixels por imagem pemnitem uma nitidez muito boa. Basta 
lembrar que a televisao possui pouco mais de 500 linhas 
para preencher a tela toda. Portanto, a resolugao 640 x 480 
x 256 cores produz uma imagem quase no padrao da TV. 0 
que fica faltando nao diz respeito a quantidade de pixels, 
mas sim a quantidade de cores. Enquanto na televisao cada 
ponto possui uma definigao independents de cor, no esquema 
de palette os pontos so podem variardentro das definigoes 
ja estabelecidas. 

Somando-se os pros e contras, e lembrando que uma 
imagem nao pode ser considerada apenas pelo que se ve 
na tela do monitor - ha o armazenamento, compactagao / 
descompactagao, velocidade de manipulagao, etc - chega- 
se a conclusao de que o formato 640 x 480 x 256 cores e 
o que tern a melhor relagao custo / beneficio do momento. 
Quando as maquinas estiverem rodando bem acima dos 
100 Mhz, o sistema de geragao de imagens deixar de ser 
independente (como e hoje) e os meios de armazenamento 
atingirem grandes velocidades de transferencia, at entao 
poderemos voltar ao assunto. 

PROGRAMANDO EM 640 X 480 X 256 

Ja que vamos nos concentrar nesta resolugao, nada mais 
justo que esclarecer alguns pormenores relativos ao formato. 
Em primeiro lugar, nesta resolugao uma tela ocupao espago 
de 307.968 bytes. Sao 307.200 bytes para os pixels e mais 
768 bytes para a palette (ou definigao das cores). 

Cada uma das 256 cores da palette 6 composta portres 
bytes que informam a intensidade de cada componente da 
cor, no formato RGB (Red, Green, Blue). Assim, cada core 
definida e passa a ser representada, na tela, por um codigo 
de um byte. Quando a placa vai gerar a imagem, ela pega na 
tela o codigo do pixel (esse valor de 0 a 255) e encontra na 
palette a definigao RGB correspondente, para envia-la ao 
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Placas com chipset ATI VGA 



SETMODs 




BOV 


ax, 62h 


int 


lOh 


ret 




SETBAN: 




push 


ax 


push 


dx 


mov 


ah, [Banco] 


mov 


dx, lceh 


mov 


al, 0b2h 


out 


dx, al 


inc 


dl 


in al,dx 




shl 


ah, 1 


and 


al, Oelh 


or ah, al 




mov 


al, 0b2h 


dec 


dl 


out 


dx, ax 


sti 




pop 


dx 


pop 


ax 


ret 





monitor. 

A grande vantagem desse sistema e que cada pixel § 
representado por apenas um byte, sem a necessidade de 
nenhum tipo especial de operagao como as rotagdes e 
shifts, quando se trabalha com quantidades menores de 
cores. Mas, devido ao fato das placas de video terem 
barramento de 16 bits, o processador so pode manipular 
65536 bytes (64 Kbytes) ou pixels de cada vez. Levando em 
consideragaoque umatela possui 300 Kbytes, o processador 
intemo da placa precisara ser informado sobre qual grupo 
(ou segmento) de 64 Kbytes desejamos produzir 
modificagoes. 

Parece muito complicado, mas no fundo nao e. 
Principalmente porque isto deve serfeito em Assembler e so 
dara algum trabalho na primeira vez. Ah! sim, para qualquer 
resultado mais interessante, quando se trabalha nessas 
resolugoes conhecidas como SuperVGA, e imprescindivel o 
uso da linguagem Assembler, afinal nao so a velocidade de 
processamento e importante mas tambem a eficiencia das 
rotinas. 

OS DRIVERS DE VIDEO 

Bern, aqui encontramos nosso primeiro grande problema. 
Quando a IBM projetou a placa VGA, o maximo de qualidade 
que se pretendeu foi a resolugao 640 x 480 x 16 cores. 
Acimadessa resolugao o campoficou aberto as especu lagdes 
e sandices dos fabricates. Cada um bolou um esquema 
drferente que, apesar de manter comum certas resolugoes, 
exige uma forma diferente para a habilitagao do banco, ou 
segmento, de 64 Kbytes e para sua instalagao. Nada 
intransponivel e que nao pudesse ser desvendado pelos 
programadores, mas isto provoca uma frequente 
incompatibilidade entre placas diferentes. 

Apesar de teimos hoje divers as marcas e modelos de 
placas, existem uns poucos fabricantes que produzem o 



chip do processador de Video. Assim, temos apenas alguns 
modelos que sao realmente diferentes. Chamamos o conjunto 
de processamento da placa de CHIPSET e a lista a seguir 
apresenta os mais importantes, com seus respectivos 
codigos de instalagao do modo 640 x 480 x 256 cores. 



AHEAD 61h 

ATI Vga Wonder 62h 

CHIPS & TECHNOLOGIES 79h 

EVEREX 30h 

OAK TECHNOLOGIES 53h 

PARADISE 5Fh 

CYRRUS LOGIC 5Fh 

TRIDENT 5Dh 



Placas com chipset VIDE07 



SETM0D: 




mov 


ax, 6£05h 


mov 


bl,67h 


int 


lOh 


ret 




SETBAN: 




push 


ax 


push 


dx 


push 


cx 


mov 


al, [Banco] 


and 


ax, 15 


mov 


ch,al 


mov 


dx, 3c4h 


mov 


ax, 0ea06h 


out 


dx, ax 


mov 


ah, ch 


and 


ah, 1 


mov 


al, Of 9h 


out 


dx, ax 


mov 


al, ch 


and 


al, 1100b 


mov 


ah, al 


shr 


ah, 1 


shr 


ah, 1 


or ah, al 




mov 


al, Of 6h 


out 


dx, al 


inc 


dx 


in al,dx 




dec 


dx 


and 


al,not 1111b 


or ah, al 




mov 


al, 0f6h 


out 


dx, ax 


mov 


ah, ch 


mov 


cl, 4 


shl 


ah, cl 


and 


ah, 100000b 


mov 


dl, Occh 


in al,dx 




mov 


dl, 0c2h 


and 


al,not 100000b 


or al , ah 




out 


dx, al 


sti 




pop 


cx 


pop 


dx 


pop 


ax 


ret 
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TSENG (Genoa, Orchid, Willow) 2Eh 

TSENG 4000 2Eh 

VIDEO SEVEN 67h 



Apesardessa diversidade, no Brasil a grande maioriados 
micros pessoais esta baseada em placas com CHIPSET da 
Trident. Isto porque e o mais barato de todos, pesar de ser 
a placa de video mais lenta do mercado. £ isso mesmo, cad a 
placa possui uma velocidade propria de funcionamento, 
pois naoeo process adordo microquem mandaa informagao 
para a placa, mas sim a placa que coleta a inform agao numa 
regiao especial da memoria principal. Dessa forma, nao 
adianta nada trocar seu 386 SX de 25 Mhz por urn 486 de 
66Mhzsecontinuarcom a mesma placaTrident. Paracertos 
procedimentos, nao havera ganho nenhum na performance 
final do programa. 

Com isso, o primeiro passo a ser dado na programagao 
e identificar o fabricante e modelo da nossa placa de video. 
Paratanto, basta uma rapida consults ao manual da placa. 
Jfi sei, nao tern! Bern, existem um monte de programinhas 
shareware que pretendem “descobrir” quern foi o pseudo- 
fab ricante da placa de video. Na maioria dos casos eles 
dizem que a placa e de fabricante desconhecido, mas as 
vezes conseguem acertar na mosca. 

Se isso nao for possivel, entao uma “olhada” nos 
primeiros bytes do segmento COOOh, utilizando um editor de 
memoria, ou o proprio Debug do DOS, certamente mostrara, 
em algum lugar, uma string contendo o nome do fabricante. 
Se isto tambem nao for possivel, recomendo trocar 
urgentemente a placa de video, pois ela deve ser de um 
fabricante tao suspeito que preferiu nao colocar seu nome 
nela. 

Identificadooditocujo, agorae so usarainterrupgaolOh, 



Placas com chipset CHIPSTECH 



SETMOD: 




mov 


ax, 79h 


int 


lOh 


ret 




SETBAN: 




push 


ax 


push 


dx 


mov 


dx, 46e8h 


mov 


ax, leh 


out 


dx,ax 


mov 


dx, 103h 


mov 


ax, 0080h 


out 


dx, ax 


mov 


dx, 46e8h 


mov 


ax, Oeh 


out 


dx, ax 


mov 


ah, [Banco] 


shl 


ah, 1 


shl 


ah, 1 


mov 


al, lOh 


mov 


dx, 3d6h 


out 


dx,ax 


sti 




pop 


dx 


pop 


ax 


ret 





dedicada aos servigos do video, para habilitar a resolugao 
desejada. Se coiocarmos essa pequena rotina e mais a 
rotina especifica para chaveamento dos bancos de memdria 
em um determinado local de nosso programa, podemos 
trabalhar com todo o resto de forma padronizada. Ao trocar 
de placa, ou para radar em outro tipo de placa, bastard 
mudar apenas essas duas pequenas rotinas. 

Vamos entao estabelecer como padrao a rotina SETMOD 
para instalar o modo 640 x 480 x 256 cores e a rotina 
SETBAN para habilitar o banco de memoria especifico. Nas 
listagens desta materia, voce encontrara os procedimentos 
pad roes para os principals modelos de CHIPSET do mercado. 



Placas com chipset TSENG 



SETMOD: 


mov 


ax, 2 eh 


int 


lOh 


ret 

SETBAN: 


push 


ax 


push 


dx 


mov 


al, [Banco] 


and 


al, 7 


mov 


ah, al 


shl 


al, 1 


shl 


al, 1 


shl 


al, 1 


or al. 


ah 


or al. 


01000000b 


mov 


dx, 3cdh 


out 


dx,al 


sti 


pop 


dx 


pop 


ax 


ret 



A MANIPULA£AO DO VIDEO 

A imagem que aparece no monitor esta efetivamente na 
memoriada placa de video. Porestarazao, paratrabalharmos 
com a resolugao 640 x 480 x 256 cores % necessdrio uma 
placa com no minimo 512 Kbytes. A grande vantagem desta 
resolugao e que suafrequenciade funcionamento 6 identica 
a do monitor VGA, ou seja, voce nao precisa ter um monitor 
multisync para operar com ela. 

Como jd foi visto, o processador do micro nao acessa 
(infelizmente) essa memoria da placa. Tudo tern que ser 
feito por vias indiretas. A bem da verdade, o sistemade Video 
do PC e algo de fazer inveja aos burocratas de Brasilia e so 
foi mantido desta forma para compatibilizar os programas 
que ja existiam, com as maquinas mais modemas. 

Seja como for, o fato 6 que d desse jeito e ponto final. 
Entao, obedecendo a padronizagao IBM, para colocar uma 
informagao na tela precisamos atuar na regiao especialmente 
dedicada a isto, nos primeiros 640 Kbytes da memoria do 
micro.Como se trata de alta resolugao, o enderego base 
inicia no segmento AOOOh e o sistema permits a manipulagao 
em todo o segmento, de OOOOh a FFFFh. Dessa forma, ao 
coiocarmos um byte num desses enderegos, o processador 
da placa ira transferHo para o enderego correspondente (de 
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OOOOh a FFFFh) dentro do banco de memoria de video que 
estiver habilitado. 

Chaveando os bancos e acessando os enderegos, 
podemos rnanipulartodos os 307.200 pixels que compoem 
uma tela nessa resol ugao. Ja a definigao das cores, ou 
palette, podera ser resolvida atraves dos registradores 
especrficos que controlam a VGA. 

MANIPULAgAO DAS CORES 

Como ja vimos, na area de Video nao manipulamos as 
cores mas sim um codigo que estabelece qual das 256 
definigdes de cor sera usada para aquele pixel. Este sistema 
tern vantagens e desvantagens. A grande desvantagem e 
que os pixels nao sao independentes, ou seja, e preciso 
otimizar as cores necessarias paraquea imagem "caiba” na 
tela. Por outro lado, esse sistema permite uma grande 
velocidade de manipulagao da infbrmagao grafica. No sistema 
ideal, a True Color, cada pixel e definido individualmente por 
tres bytes, relacionados com os componentes RGB da cor. 

Outra caracteristica dos modos 256 cores da VGA e que 
a definigao da cor, na palette e que 6 feita por tres bytes 
(RGB), so usa 6 bits de cada byte para ajustar a intensidade 
de cada componente (os valores variam de 0 a 63). Portanto, 
so podemos ter 262.144 variagoes de tonalidade para cada 
cor definida. Nas placas True Color, cada cor pode variar 
entre 16.777.216 tons. Para informar ao sistema como cada 
cor deve ser definida, temos que acessar os registradores 
intemos da VGA. A rotina SETPALfoi construfda para ajustar 
as 256 cores da palette, a partir de um buffer pre-definido. 
Este procedimento ajuda a manter uma copia das cores que 
estao na tela, sem a necessidade de se acessar com 
frequencia os registradores da placa. 

Seu funcionamento se baseia no sistema de leitura/ 
escrita automatica da VGA. 0 enderego de I/O 03C8h e 
usado para controlar a escrita nos registros de cores e o 



Placas com chipset TSENG s.4000 



SETMOD : 




mov 


ax, 2eh 


int 


lOh 


ret 




SETBAN: 




push 


ax 


push 


dx 


mov 


ah, [Banco] 


mov 


dx, 3bfh 


mov 


al, 3 


out 


dx, al 


mov 


dl,0d8h 


mov 


al, OaOh 


out 


dx, al 


and 


ah, 15 


mov 


al,ah 


shl 


al, 1 


shl 


al, 1 


shl 


al, 1 


shl 


al, 1 


or al, ah 




mov 


dl, Ocdh 


out 


dx, al 


stl 




pop 


dx 


pop 


ax 


ret 





enderego 3C9h e usado para passar os dados do computador 
para a placa. Ao colocarmos na porta 03C8h o valor 
correspondents a uma das 256 cores, a placa ficaesperando, 
pela porta 03C9h, tres bytes que serao usados como 
definigao RGB. Para a leitura, e so usar a porta 03C7h para 
que a placa envie tres bytes pela porta 03C9h. 

Quando um modo de 256 cores e habilitado, a palette e 
carregada automaticamente com as definigdes default. As 
16 primeiras cores sao identicas ao modo 16 cores da EGA/ 



APRENDA INFORMATICA 
SEM SAIR DE CASA 



CURSO RAPIDO EC0N0MIC0 E EFICAZ 

Sistema de apostilas. Basta seguir os 
exercfcios e treinar diretamente no seu PC 

COMANDOS TRADUZIDOS PARA 0 NOSSO IPIOMA 
Acompcnho disquete 5 1/4 com exerricios 

Estou enviando para Ricardo Flores, cheque 
cruzado e nominal a AUDIT SYSTEM 
SERVICOS LTDA., CADCA POSTAL 25096 - RIO 
DE JANEIRO - CEP 20552-970 no valor total 
do pedido id indufdas as despesas postais. 
Tel/Fax: (021) 571-5903 



TABELA DE PRE£OS 



CURSO 


APOSTILA 




‘MS-DOS 5.0 - Int. a inform. 


a US$22.00 




‘WordStar 5.0/6.0 


□ US$22.00 




‘Lotus 1 23 


□ US$22.00 




‘Quattro Pro 


□ US$22.00 


% s 


‘dBase III Plus Interativo 


D US$22.00 


Q 8 


‘dBase III Plus Programado 


□ US$22.00 


9 8 


‘Clipper 5.01 Basico 


° US$22.00 


0 s 


*Ventura Publisher - Edit. El. 


° US$22.00 




‘word 2.0 


D US$30,00 




‘Windows 3.1 


D US$35.00 


. g 


‘Visual Basic 


□ US$35.00 





Dilor comertlal do dio da remes>a do padido 



Nome: 

Enderego: TEL.:.... 

Cidade: Est.: CEP: 

Assinatura: 
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Placas com chipset AHEAD v. A 



SETMOD: 




mov 


ax, 61h 


lnt 


lOh 


ret 




SETBAN: 




push 


ax 


push 


dx 


push 


cx 


mov 


ch, [Banco] 


mov 


dx, 3ceh 


mov 


ax, 200fh 


out 


dx, ax 


mov 


dl, Occh 


in al,dx 




mov 


dl, 0c2h 


and 


al, 11011111b 


shr 


ch, 1 


jnc 


SETBAO 


or al, 00100000b 


SETBAO : 




out 


dx, al 


mov 


dl, Ocfh 


mov 


al, 0 


out 


dx, al 


inc 


dx 


in al, dx 




dec 


dx 


and 


al, 11111000b 


or al, ch 




mov 


ah, al 


mov 


al, 0 


out 


dx, ax 


sti 




pop 


cx 


pop 


dx 


pop 


ax 


ret 





VGA. As cores de 16 a 31 correspondem ao mesmo grupo, 
porem em tons de cinza. As cores de 32 a 247 sao ajustadas 
como 24grupos de cor, cada qual consistindo de nove tons. 
Para cadatomexistem toes niveisde intensidadeesaturagao. 
As cores restantes (de 248 ate 255) sao definidas com o 
valor zero, o que represents a cor preta. 

ACHANDO O LUGAR CORRETO 

So falta agora criar um procedimento para aoessamnos 
qualquerenderego da memoria de video, ou seja, dada uma 
certa coordenada de tela, calcular em que banco e enderego 
estara o pixel correspondente. Para isso, usaremos duas 
variaveis, Posy apontando para a linha e Posx para a coluna. 

A rotina CALPOS usa tambem as variaveis Endvid para 
guardar o enderego dentro do segmento e a variavel Banco, 
para guardar o numero do banco de memoria que sera 
habilitado. 

CONCLUSAO 

As 256 cores do modo 640 x 480 podem nao ser o ideal 
em termos de grandes telas, principalmente quando as 



imagens possuem muitas variagoes de tons (degrades), 
mas e sem duvida a que a apresenta a melhor relagao custo 
beneficio. Alguns programas comerciais mais recentes tern 
mostrado uma preocupagao excessiva com resolugoes 
maiores que essa, causando uma demora nas operagdes 
mais corriqueiras. Imagens com mais lesolugao exigem 
sempre maquinas mais potentes e monitores mais 
sofisticados.Por outro lado, a tecnologia de programagao 
para manipular imagens em 640 x 480 x 256 cores ja esta 
bastante difundida e testada. Alem disso, essa resolugao § 
obtida em qualquer micro baseado na VGA, bastando para 
isso que a placa ten ha pelo menos 512 Kbytes. 

Como as resolugoes acima do padrao VGA (640 x 480 x 
16 cores) nao foram definidas pela IBM, alguns pequenos 
problemas irao surgir. Porexemplo: nas resolugoes com 256 
cores nao existe suporte total para o mouse. Como a 
programagao busca ser cada vez mais grafica, este detalhe 
pode ser um entrave para o desenvolvimento de programas. 
Na verdade, teremos que construir as nossas proprias 
rotinas de controle do cursor, o que tambem nao 6 nenhum 
bicho papao. 

Se voce e do ramo ou tern interesse nessa area, fique 
ligado pois na proxima edigao iremos apresentar nao so um 
novo sistema de controle do mouse, como tambem rotinas 
para criar procedimentos associados a botoes, no meihor 
estiio Windows. E se o tempo para digitagao for curto, e so 
solicitar a PRO KIT o disco Biblioteca VGA/256. Nele voce 
tera todo o material publicado nesta serie de materias e 
tambem rotinas diversas para manipulagao grafica. E tudo 
em Assembler. 

Ate a proxima edigao. 



Placas com chipset AHEAD v. B 



SETMOD: 




mov 


ax, 61h 


int 


lOh 


ret 




SETBAN: 




push 


ax 


push 


dx 


push 


cx 


mov 


ch, [Banco] 


mov 


dx, 3ceh 


mov 


ax, 200fh 


out 


dx, ax 


mov 


ah, ch 


mov 


cl, 4 


shl 


ah, cl 


or ah, ch 




mov 


al, Odh 


out 


dx, ax 


sti 




pop 


cx 


pop 


dx 


pop 


ax 


ret 
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Posy dw 


0 






Posx dw 


0 






Endvld dw 


0 






Banco db 


0 






CALPOS : 








mov 




ax, 640 




mov 




dx, 0 




mov 




bx, [Posy] 




mul 




bx 


; Multiplica qt de linhas por 640 


mov 




dl, [Posx] 




add 




dl, ax 


; Soma a qt de colunas 


adc 




dx, 0 


; Soma o carry se houver estouro 


mov 




[Endvld] ,di 


; Salva o endere^o 


mov 




[Banco] ,dl 


;Salva o numero do banco 


call 




ETBAN 


;Habilita o banco 


ret 










Bufpal 768 


DUP (0) 




SETPAL : 


mov 


cx, 256 


;Quantidade total de cores 


mov 


dx, 3c8h 


;Endereco I/O dos registradores 


SETPA0 : 


mov 


ax, 256 


;Numero do registrador da cor 


sub 


al, cl 




out 


dx,al 


; Ajusta a VGA para o registrador 


inc 


dx 




mov 


al, [si] 


j0bt6m a definig&o Red 


inc 


si 




out 


dx, al 


;Envia para a placa 


mov 


al, [si] 


;0bt6m a definigSo Green 


inc 


si 




out 


dx, al 


;Envia para a placa 


mov 


al, [si] 


;0btem a definig&o Blue 


inc 


si 




out 


dx, al 


;Envia para a placa 


dec 


dx 




loop 


SETPA0 ; 


Pr6xima cor 


ret 


i 







0 RIO GANHOU UMA NOVA E DIFERENTE LOJA 

NUM MESMO LOCAL VOCE ENCONTRA 

t 

EDICOES EDIOUROt LIVROS DOS MAIS VARIADOS ASSUNTOS 
ELETRONICA; LIVROS, ANTE NAS PARA RADIOAMADORES E PX, 
ANTENASPARAB6LICAS, etc. 

INFORMATION suprimentos, equipamentos, completa 
LINHA DE LIVROS PARA INICIANTES E PROFISSIONAIS COM 20% DE 
DESCONTO. 

MANUAIS EM PORTUGUiSs VIDEO, CAMERAS, AGENDAS, 
COMPUTADORES, FAX, TELEFONE SEM FIO E ETC. TEMOS 
DIVERSOS PRONTOS E TRADUZIMOS ARTIGOS DE REVISTAS E 
LIVROS. 

VENHACONHECERA 



trdnlca 



romo 



Av. Marechal Floriano,1 67 A - CEP:20080-005 
Rio do Janeiro - RJ 

TEL:(021 1263-9590 FAX:(021 1263-8840 
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VENDAS DE EQUIPAMENTOS | 
GE 






NAOPERCA TEMPO 
PECA CATALOGO POR ! 
CARTA OU TELEFONE 



TDDOS OS NOSSOS PROGRAMAS 
SAO TESTAOOS E GARANT1MOS A 
ENTREGA ENTRE 5 A 10 DIAS 

STARMAC 

INFORMATICA 

Av. Marechal Floriano, 1 220 
Guara rapes - SP - CEP: 1 6700-000 



TEL.:(OT 86)61 -3381 



Contabilfdade 

AtuaOzado, com fontes. Di&lo, 
Ftazfto, Baiancetee e Balango. 
Muffiempresa. 5 diequetes de 
360 kB, R$ 30,00. OUTROS 
APUCATTVOS: Gestor 
ComercW (eetoquee cupom 
de calxa), 4 disquetss, R$ 30,00; 
SaneMo, R$ 15,00; Mala Dlrata 
(Cadastroa]L R$ 20,00. 
Softs para PC XT, at6 486 » 
Penthim, com lontaa cm Clipper. 




INFODATA Infonnatica Ltda. 
Caixs Postal 1224, cep 01059 970 
Sao Paulo, SP. Tels.: (011) 

259-8169 e 259-6399 
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ALEX SOFT INFORMATICA 

R. Pedro de Toledo, 967 / 2 - Sao Paulo / SP - CEP 04039-032 (Pr6x. Est. Santa Cruz do Metrd) 



_ Grava?cio em 5 'A DD {cl Disquete) : R$ 1 ,20 

Pregos GravagSo em 5 'A HD (d Disquete) : R$ 1 ,70 

JmbaUveiS !!! Correio (cada 20 Disquetes) : R$ 2,30 ^ 



i-edidos : por Carla ou Fone de Seg. a Sex. das 1 0:00 as 1 8:30, Sabado das 1 0:00 as 1 5:00, Relacionando o Codigo, o Nome e o Nu- ^ 
mero de discos dos Programas desejados. Ndo esquega de adicionar ao pedido a taxa de Correio. 

Formas de Pagamento : 1 -) CHEQUE NOMINAL: a Alex Soil Entret. e Locagao Ltda. ou 2-) DEPOSITO EM CONTA: Banco Bradesco, 
Ag&ncia 2282 - 9, Conta 5.520 - 4 em nome de Alex Soft Entretenimento e LocagSo Ltda., enviando xerox do depdsito junto ao pedido. 
Catalogo Eletronico : Envie urn disco 5 V* DD ou R$ 0,50 ,c! seu nome e enderego. Compras acima de 8 discos o cataiogo 6 gratis. 








i CABAL 
I CATACUMB (V) 

I CMALl. AN CUNT EMPIRES (V) 

' COLORADO 
I COMMANDER KEEN IV <V» 

1 COMMANDER WEEN V (VI 
l COMMNADER KEEN VI (V> 

I CONAN THE CIMMERIAN (V) 

) CONTRAPTION ZACK (V) 

I CRIME WAVE (V) 

) CYBE RCf NIC RANGER (VI 
I DESPERADO II 
t DICK TRACY 
I DIE HARD 

> DOUBLE DRAGON III (V) 

. DOWN RAIDER (VI 

I DRACONS LAIR Ul 
I DUKE NUKZN (V) 

’ El CAPTAIN TRUE NO 
T REDDY HARDEST 
I CHOSTBUSTIRS U 
CODS (VI 
COLDEN AXE 
GREMLINS II 
CUY SPY 
HOME ALONE (VI 
HORROR ZOMBIE (V) 

IND. JONES AND LAST CRUSADE 
IKARI WARRIORS 
JILL Of THE JUNGLE II 
KARATEKA 
LltE & DEATH II (VI 
MEGA MAN 
METAL GEAR 
METAL MUTANT 
’ miami via 

MOONWALKER 
NUCLEAR WAR 

i OILS WELL 
OlfVER & COMPANY 
OPERATION WOLE 
OS TRlS PATETAS 
OUTOT THIS WORl D (V) 

PANZA KICK BOXER (V) 

PIT HCHTIR(V» 

PRE HISTORIK 
PREDATOR 2 (VI 
PRINa or PERSIA 
PRINa or PERSIA EDITOR 
PRINa or PERSIA II (VI 

pRorrar or viking child tvi 

RASTAN SAGA 
RENEGADE 
RISK WOOD (VI 
ROADRUNNER 

> ROBOCOP (DATA WEST) 

ROGGE R RAB8IT 

SHIN OBI 

i SIMPSONS I (VI 
SIMPSONS II (V| 

5PAa Aa H 
SPEAR or DESTINY (V| 

STREET HCHTER II (VI (31 
SUPER CONTRA 



dOOOS TAKTARUCAS NINJA II (V) 02 HD 

S030I TAKTARUCAS NINJA III 01 HD 

d0094 TICE l SMERQ NARIES (V) 02 HD 

SOSOS TERMINATOR 2029 (V) (3) 07 HD 

50400 TERMINATOR I (V) 02 HD 

50077 TERMINATOR II (V) 01 HD 

S0070 THE AMAZINC SPIDER-MAN 02 DO 

$0286 THE GODfATHER (V) 03 HD 

S0741 THE JETSONS 01 DO 

S0313 THE ROCKETEER (V) 03 HD 

S0283 THEXDER DM 01 HD 

SO 402 TITUS THE FOX (V) 01 HD 

S0469 TONCUE OF THE FATMAN 02 HD 

ST112 ULTRA BOTS (V) (3) 02 HD 

S0095 WINGS Of FURY 02 DD 

d0072 WOLf EINSTAIN 3D (V) 01 HD 

50648 WRESTLEMANLA 02 DO 

S0424 X • MEN II 02 DD 

ADVENTURFS E R.P.G.'S: 

S0831 ALONE IN THE DARK (V) 03 HD 

SQ673 AMAZON (V) 08 HD 

50*87 BATMAN RETUTNS (V| 07 HD 

SI 195 CARMEN S. DIECO DE LUXE (V) 03 HD 

S1071 CHALLENGE of the FIVE REALMS M 10 HD 
SOS 86 CONQUEST OF CAMELOT 02 HD 

50773 COUNT DOWN (V) 02 HD 

S0965 CURSE OF ENCHART (VI 07 HD 

S0862 DARK LAND (V) 11 HD 

5070 1 DARK SEED (V) 03 HD 

5080 1 D RANCH EN 03 HD 

S0739 DUNE I (VI 02 HD 

50791 DUNE II (V) 04 HD 

d0030 EC05 QUEST (V| 04 HD 

50273 ELVIRA II (V) 03 HD 

50421 EYE OF BEHOLDER II (VI 03 HD 

S0781 FIVEl AN AMERICAN TAIL (VI 05 HD 

S0920 FREE D.C (V) 03 HD 

SI 289 CALLEONS OF CLORY (V» 01 HD 

51 083 COBUINS (V) 03 HD 

50775 COBLIINS II (V) 02 HD 

S0336 HEART Of CHINA (V| 07 HD 

d0092 HOOK (V) 02 HD 

d0044 IND. JONES • FATE OF ATLANTIS (V) 06 HD 

S0394 IND. JONES -LAST CRUSADE (V) 04 HD 

SI 031 INSPECTOR GADGET (VI 04 HD 

S0948 K.C.B (V) 03 HD 

d0022 KING'S QUEST V (V) 09 HD 

S0930 KINGS QUEST VI (VI 09 HD 

SO 70* LEGEND Of KY RAND LA (V) 04 HD 

S0373 LEISURE SUd LARRY V (V) 08 HD 

S011S LOOM 06 DD 

S1104 LOST IN LOS ANCELES (V) 03 HD 

d0066 MARTIAN MEMORANDUM (V) 03 HD 

S0795 MIGHT & MACIC III 03 HD 

S098* MICHT & MAGIC IV 09 HD 

d0039 MIXED UP FAIRY TALES (VI 04 HD 

50608 POLia QUEST III (VI 03 HD 

SI088 POWER MONCE (V) 03 HD 

S099S QUEST FOR CLORY III (V) DSHD 

50804 REX NEBULAR (VJ (3) 10 HD 

50568 RISE Of THE DRAGON (V) 07 HD 

S0233 ROBIN HOOO (V> 07 HD 

S0786 ROGGE R RABBET II (VJ 03 HD 

S 1 013 SHERLOCK HOLMES (V) (3) 10 HD 

S0267 STAR TREK • 23TH ANIVERSARY (V> 03 HD 

S0716 STAR TREK V - FINAL FRONTIER IV) 03 DD 
S0343 THE CASTLE OF DR BEEN 02 HD 

SO 2 60 THE SECRET MONKEY ISLAND II (V) 06 HD 
S1 1 02 TIME RIDERS AMERICAN HISTORY (V) 04 HD 
S1081 ULTIMA UNDERWORLD (V) 04 HD 

50910 ULTIMA UNDERWORLD II (VI (3) 03 HD 

SI 000 VINCA NO Of E5CALIBUR (V) 02 HD 

50913 WEEN THE PROPHECY (V) 03 HD 

CORRIDAS, CARROS f MOTOS : 

d0093 1000 MICLIAS (V) 02 HD 



503 12 Bill ELL IOT * NASCAR CHALLENGE 04 DO 

S0749 CAR & DRIVER (V) (3) 03 HD 

S0139 FERRARI FORMULA 1 02 DO 

S0239 FORD SIMULATOR II 02 DO 

SOI 14 CRAND PRK ORCUfT 02 DO 

d0043 CRAND PRK UNLIMFTED (V) 01 HD 

50669 HARD DR IVIN' 01 DO 

S0057 INDIANAPOLIS 300 02 DO 

d0099 IRON MAN SUPER Of F ROAD 02 DO 

S0319 MARIO ANDRETTI RAONC (VI 03 DD 

S0062 MOTOCRD5S SUZUKI 2S0OC 01 HD 

S0079 PARIS DAKAR RALLY 02 DD 

SOI38 POWER DRIFT 03 DD 

d0064 STREET ROAD II 01 HD 

5045 7 5TUNT DRIVE 01 HD 

S0041 STUNTS 01 HD 

d0016 TEST DRIVE III (VI 01 HD 

S0044 THE CYCLES 02 DO 

50075 TURBO OUT RUN 01 HD 

S0760 WORLD CIRCUrT (V) 03 HD 

CASSINOS, TABULEtROS E FLIPPERS: 

S0607 AMARll O SUN POKER 02 DO 

S0098 BATTLE CHESS I 02 DO 

S0030 BATHE CHESS II 03 DD 

S0436 BILHAR 01 HD 

S1136 CHESS MANIAC 3 BILLION 1 (VH3I 12 HD 

d0038 CHESS MASTER 3000 (V) 01 HD 

d0091 CHESS MASTER for WINDOWS (VI 01 HD 

S0598 CYRUS CHESS 3D 01 DO 

S0925 HOYLE'S III 02 HD 

S1 189 JIMMY WHITE SNOOKER (V) 01 DD 

S1043 POKER tar WINDOWS IV) 01 HD 

S1114 SARCON 3 01 HD 

5083 6 SOLITAIRES JOURNEY (V) (31 02 DD 

d0012 5TRIP POKTR III (V) 01 HD 

S0733 TRISTAN (V) (3) 01 HD 

5041 1 TRUMPH CASTLE II (V) 01 DO 

S003Q VEGAS GAMBLER 01 DD 



5020 3 ELITE I 01 DD 

S1177 CALACTK (V) 02 HD 

S1028 INCA |V) |3I 10 HD 

5071 5 KUOBLASnRIVI 01 HD 

S0694 MANTIS: EXPIR FICHTER (V) 09 HD 

S1048 PLAN 9 - FROM OUTER SPACE (V) 03 HD 

50037 STAR CONTROL 02 DO 

50836 STAR DfFENa 01 DO 

S1096 STAR LEGIONS (VI 02 HD 

d0071 STELLAR 7 01 HD 

51033 STRIKI COMMANDER (V) (3| 08 HD 

50375 TUNNELS OF ARMACEDOON 02 DO 

S0088 WING COMMANDER I (V) 03 HD 

S0S71 WING COMMANDER II (VI 08 HD 

50826 X • WINC (V) (3) 03 HD 

S0391 XENON II 03 DO 

ESPORTES E COMPETICAO: 

S0217 10TH FRAME BOWLING 01 DO 

50200 4D BOXING 04 DD 

S0947 4D SPORT TENNIS (V| 01 HD 

d0082 ABC WIDE WORLD BOXING (V) 01 HD 

S1011 AMI RICA GLADIATOR (V) 03 HD 

d0132 CALIFORNIA GAMES II 03 DO 

d0014 CAVEMAN HUGH LYMP1CS 04 DO 

S1219 DREAM TEAM 05 DO 

50068 FIENDISH FREDOYS 03 DD 

d0090 GREAT COURTS II (VI 01 HD 

S0698 HARD BALL III (V) 03 HD 

50636 INTERN. SOCCER CHAUENCE 02 DO 

50366 JOE MONTANA FOOTBALL 02 HD 

51066 JORDAN IN FLIGHT (V) 02 HD 

50034 KINCS OF THE BEACH 02 DO 

50108 LAKERS VS. a IT ICS 02 DO 

$0039 LCAV BLOW 03 DO 

S1063 MtCROl (ACUE ACT. SOCOR (V) 01 HD 



*1035 MIKE DITKA ULT. FOOTBALL (V) 
d0089 NCAA BASKETBALL (V) 

S0939 OLIMPIADAS 92 (V) 

S0371 PGA TOUR COLF (V) 

$0031 SKATE OR DIE 

50049 SKI OR Dll 

50390 TV SPORTS BASKETBALL (V) 

50438 WINTER GAMES 

ISTRATfGtA : 

50840 CARRIER AT WAR (V) (31 
S0643 CIVILIZATION (V) 
d0073 DINOWARS 

51131 EL FISH (V) 

S0941 POPULOUS II (VI 

S1 172 SHADOW PRESIDENT (VI (31 

d0036 SIM ANT (V) 

50383 SIM CFTY (V) 

SO1 18 SIM EARTH (V) 

50830 SIM LIFE (V) 
d0037 STRATECO (V| 

5092 7 THEATRE AT WARM 

porn6s e er6ticos : 

S03S6 ADULT GAMES 

50485 BUNNY'S BEACH BALL M 
50844 Cl) BRA MISSION M OJ 
50488 HAIR1ESS I M 

50487 NIKKI M 

50456 PENTHOUSE JIG SAW (V) 

50486 POOR MANDY I (V) 

SOI 74 PORNO 

508 19 SUPER PORNO (V) 

RACIOCfNIO EM CERAl : 

S0220 ARKANOID II 
S0008 BLOCK OUT 
S0763 BRK (V) 

502 SI CD -MAN M 
50666 FAaS... TRIS HIM 
50276 JIC SAW PUZZLE 
50039 LEMMINGS 

S1043 LEMMINGS II • THE TRIBES M 
S0972 MARIO BROS IS MISSINC I (VI 
S0197 MICKEY MOUSE 123* M 
S1043 PACK GAMES FOR WINDOWS 
50399 SUPER TETRIS (V) 

S0007 THRIS 

50824 THE HUMANS M 

S1064 THE INCREDIBLE MACHINE M 

S0451 WELLTID5 

SIMULADORES EM GIRAl : 

50012 688 ATTACK SUB 
S0I44 A 10 TANK KILLER II 
<J0079 AOS OF THE PACIFIC M (3) 

S1092 ANOINT ART ol WAR in SKIM 131 

S0727 B-17 FLYINC FORTNISS M 

S0092 BLUE MAX 

50232 f-14 TOM CAT 

S0743 F- IS STRIKI EACH III M (3| 

S0243 F-16COM8AT PILOT 

S0189 F H7A STEALTH FICHTER 2.0 M 

S03 5 7 FALCON 3.0 (V)(3) 

d001J FICHTER BOMBER 

SOI 66 FLICKT SIMULATOR 4.0 

50841 GREAT NAVAL BATTLE (V) (3) 

S0402 CUNSHIP 2000 M 

S0613 LHX ATTACK CHOOPCK 
5082 1 Ml TANK PLATOON 
$0426 MJC-29 FULCRUM M 
$0838 PAOFIC BLAND (V| 

<30031 RED BARON (V) 

50363 SECRET WEAPONS LUFTWAFFE M 
d0021 SILENT SERVia II 
S0881 STUNT BLAND (VJ (31 
S0603 WOlf RACK M 



ULTIMAS NOVIDADES : 

AOS OVER EUROPE M (3) 

AW WARRIOR M 01 

ALONE IN THE DARK N M 01 

B -WING M 01 

BLADE OF DESTINY M 01 

BLAKE STONE-ALIENS of COED M 

BODY BLCAV M Ol 

CARMEN SAN DIEGO IN SRACI (V) 

OORJOOOR 7-ALIEN INVASION M 0 

DAUCHTER OF SERPENT (V) 01 

DRAGONS LAIR FV 

DOOM MO) 

EICHT BALL DELUXE (V) 01 

EPIC OIM 

EPIC PINBALL 1 M 0) 

EPIC PIN BAIL 2 M 01 




Icon 


NOME DOAPUCATIVO 








GRAF ICOS : 




A02 70 


JD CONSTRUCTION KIT M 


01 DO 


A0271 


3D IMAGERY 


01 DO 


A 02 80 


ADVENTURE TOOLS IOT 


02 DO 


A0288 


ANY ANCLE 


01 DO 


A0291 

A0292 


AQUARflA 

ARTIST 


01 DO 
01 DO 


A 0001 


BANNER MANIA 


01 DD 


A030S 


BANNER & SING MAKER 


01 DO 


A 0098 


COCO & PHOT 


01 DO 


A0122 


COLLAGE 


01 DO 


A 0039 


COM PUS HOW U 


01 DD 


A0114 


CRYSTAL 


01 DO 


A0J39 


DAN CAD 3D 


01 DD 


A0251 


D1GI PAINT 2-0 


01 HD 


A 0020 


FANTAVBION 


01 DO 


A0022 


GRAPH IN THE BOX 


01 DO 


A0043 


IMAGE 30 


01 DO 


A 0402 


MANNEQUIN M 


02 HD 


A0160 


PAINT SHOW 


02 DO 


A0007 


PC IIUSTRATOR 


01 DD 


A 0008 


PRINT MASTER 


01 DD 


A0003 


PROFESSIONAL CAM GAD 


01 DD 


A02S8 


SHOW PARTNER 


01 HD 


A 0080 


SKY CLOBf 


01 DO 


A04I9 


SLIDE CENEGATOR 


01 DO 


A0I62 


SMART WORKS 


03 DD 


A0174 


TEIAS Clf 


09 DO 


A0178 


TILAS PCX 


04 DO 


A0I87 


TILAS PORNO M 


06 HD 


A0I01 


THE DRAW 430 


01 DO 


A 0321 


TURBO Df SIGNER 


01 DD 


A0100 


VGA PHOTOS (V) 


02 DD 




E DUCAT fVOS : 




A0272 


ABC FUN KEYS 


01 DD 


A0273 


ABC TALK 


01 DO 


A 0042 


ATLAS PC 


01 DO 


A0039 


CRT DOS 


04 DO 


A 0083 


CHEMICAL MODULAR MODEL NC 


01 DO 


A0102 


ITALIAN TEACHER 


01 DO 


AQ099 


JAPANESE 


01 DO 


A0030 


ORBtTIR M 


04 DD 


A 0204 


POMCNCH M 


01 HD 


A02SO 


PC GLOBE 40 


01 HD 


A0109 


PC HELP 


02 DO 


A 002 7 


PROFESSOR PC 


01 DO 


^0084 


TYPING TUTOR 3 


01 DD 



PRINCIPAL APLICATIVOS PARA PC-XT/AT 
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Promocdes 1 '> Na compra de cada 1 0 Disquetes vocS ganha mais 1 Disquete Gravado 

. 2-> Compras Acima de 30 Disquetes HD ou valor equivalents, voc6 para com 2 Cheques (1 no Ato + 1 para 1 5 Dias) 

UO 1V1 es . 3-> Se nesta edigao da revista houver outra loja em SP que venda + barato, N6s cobrimos a Oferta !!! 
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PROGRAMA 



Mantenha em seguranga seus arquivos DBF 



Copia de Seguranga para 
arquivos .DBF e .DBT 



Micro: IBM XT/AT 
Memoria: 640 Kbytes 
Video: CGA/VGA 
Linguagem: Clipper 
Requisitos: Nenhum 



Valmir Menegaz de Souza 



0 BK se compoe dos recursos de copia e restauragao de 
arquivos de dados 

para sistemas escritos em Clipper ou Dbase. Originalmente ele 
foi compilado 

com o Clipper Summer 87, compativel portanto com versoes 
superiores (5.0, etc). 

Se for compilado com versoes superiores ao Summer 87, 
deve-se acrescentar uma fungao que substitua a fungao 
STRZERO() do clipper Summer, visto que na versao 5.x por 
exemplo, essa fungao nao foi inclufda na sua biblioteca. Urn 
exemplo pratico dessa fungao poderia ser escrita desse 
modo: 

FUNCTION STRZERO(vnum.vnd) 

LOCAL vnuml 

vnuml := ALLTRIM((STR(vnum,vnd)) 

DO WHILE .T. 

IF LEN(vnuml)=vnd 
EXIT 

ENDIF 

vnuml = ‘O’+vnuml 

ENDDO 

RETURN(vnuml) 

Observagao: caso voce tenha que usa-la, inclua no 
arquivo 'BK4.PRG' 

DESCRIQAO DOS ARQUIVOS FONTES 

BK.PRG - Arquivo do menu principal. 

BK1.PRG - Arquivo que gera as copias dos arquivos nos 
disquetes. 

BK2.PRG - Arquivo que restaura os arquivos do disquete para 
o disco. 

BK3.PRG - Arquivo para selegao do drive de trabalho (A ou 
B). 

BK4.PRG- Arquivo auxiliarque contem fungoes usadas pelo 
programs. 



OPERACAO DO PROGRAMA 

0 programa em si e simples e facil de operar. As tres 
opgoes do menu podem ser definidas assim: 

BACKUP - Este modulo realiza copias dos arquivos do disco 
rigido para os disquetes. Antes de iniciar a copia, sao 
eliminados todos os arquivos do disquete para que os novos 
arquivos possam ser gravados. 0 programa nao leva em 
conta os subdiretorios que porventura estejam presentes no 
disquete, isto e, serao eliminados apenas os arquivos do 
diretorio raiz. 

RESTAURA - Restaura os arquivos previamente gravados no 
modulo “BACKUP’. 

DRIVE - permite selecionar entre os drives A e B para a 
operagao com disquetes. Ao entrar no programa, o drive A 
e o default. 

0 BK como um modulo de um slstema completo de banco 
de dados: 

Para utilizar os arquivos fontes com um utilitario de 
um sistema maior 

eis as modificagoes a fazer: 

1. Pelo fato do programa ja estar com algum tipo de 
arquivo aberto, e nessario incluir o comando “CLOSE ALL’ no 
inicio dos arquivos fontes ‘BK1.PRG’ e BK2.PRG’, para 
fechar esses arquivos , pois poderia sutgir problemas na 
hora de gerar o backup. 

2. Ao sair do modulo BK’ voce tera que abrir novamente 
os arquivos que voce fechou. Importante: se voce utilizou o 
modulo “Restaura’, certamente os arquivos de Indice do 
sistema nao estarao atualizados, visto que foi gravado um 
copia dos arquivos que podera ser identica ou nao aos 
arquivos que estavam gravados anteriormente. Portanto e 
pieferivel que toda vez que se fizer uma restauragao, se 
reindexe os arquivos de dados do sistema. 
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Programs BK - Backup p/ Arquivos .DBF e 
DBT * 

Desenvolvimento : Valmir menegaz da Souza 

Florianopolis - SC 



Arquivo i BK.PRG - Menu principal 



10/04/94 



CLEAR 

SET COLOR TO 

SET CURSOR ON 

SET DATE BRITISH 

SET SCOREBOARD OFF 

SET BELL OFF 

SET PROCEDURE TO BK4 

* define tipo da variaveis * 

PRIVATE 

anjiivasl, ar\qiivoe2,kkjnHnl, drive, drivel, datjk, cabdados, inido 
PRIVATE 

flagl, time_£k, mranla, iqete, erzo, fim, arq_dbt, fim_dbt, last_disk 
PRIVATE 

flag,gravado,diaao,tani,grvjBrq, disgusts, tot_arq,iiirLarq,ccpxa 
PRIVATE 

ind_arq, arq_dee, arq_fcn,diak_free, f_size, destine, facte, finLdbt 
PRIVATE 

nutlLanjl, arq_frag, bine, buffer, r _£ytee,w Jytee, f , crparq, cent, step 
PRIVATE 

flag, aa,paeao,daet_cab, texto,arq_cab, t 2 TLaab,wjcab,iLa*’I,h.maec 
PRIVATE 

ail^ar,aciiiLxxil,xii 2 ,ni 5 _fra,dlflkJ^,dat_ctl,hcrjrtl, fra, arq_att 
PRIVATE 

vdrive, grv_priin,vetoarl,vefcair2, frA_ctll, frsLctl, tan_ctl, Xast_ctl 
PRIVATE arq_ctl,mpl,mp2 



* define cores da tela * 
xcorl = 'W/B' 

xcor2 = 'R/G' 

* define drive A como drive inicial * 
bk_meml = 0 

corl = SETCOLOR( xcorl) 

8 5,9 CLEAR TO 21,79 
8 5,9 TO 21,79 
8 19,10 TO 19,78 
8 7,10 TO 7,78 

8 21,24 SAY 'BK - Backup p/ arquivo s .DBF e 
.DBT' 

8 6,60 SAY ' Drive t A' 



mpl = 1 
DO WHILE .T. 

8 6,11 PROMPT 'Backup' 

8 6,COL()+5 PROMPT 'Restaura' 
8 6, COL 0+5 PROMPT 'Drive' 
MENU TO mpl 

DO CASE 

CASE mpl = 0 
EXIT 

CASE mpl = 1 
DO BK1 

CASE mpl = 2 



DO BK2 

CASE mpl = 3 
DO BK3 
ENDCASE 

SETCOLOR (xcorl) 

8 8,10 CLEAR TO 18,78 
ENDDO 

SETCOLOR (corl) 

CLEAR 



* Programs BK - Backup p/ Arquivo s .DBF e 

.DBT * 

* Des envoi vimento : Valmir menegaz de Souza 



Florianopolis - SC 



* Arquivo j BK1 . PRG 
arquivos no disquete 



10/04/94 



Modulo qua grava os 



SET CURSOR OFF 
SET INTENSITY OFF 
SET CENTURY OFF 

arquivos 1 = ADIR( ' * .DBF' ) 
arquivos2 = ADIR( ' * .DBT' ) 

DECLARE arr_dir [arquivosl] 

DECLARE arr_drl[arquivos2] 

DECLARE arr_tam [arquivosl] 

DECLARE arr_tmlfarquivos2] 

ADIR ( ' * . DBF ' , arr_dir , arr_tam) 

ADIR ( ' * . DBT ' , arr_dr 1 , arr_tml ) 

IF bk_meml = 0 
drive = 'As ' 
drivel = 'A' 

ELSE 

drive = ' B s ' 
drivel = 'B' 

ENDIF 

dat_bk = DTOC (date ( ) ) 
cabdados = 

SUBSTR ( dat_bk, 1,2) +SUBSTR (dat_bk, 4,2) +SUBSTR 

(dat_bk, 7,2) 

inicio = .T. 

flagl = . F. 

time_bk = time() 

cabdados 

scabdados+SUBSTR ( time_bk, 1,2) + SUBSTR ( time _bk, 4,2)+ 
SUBSTR ( time_bk, 7,2) 

DO BK_DADOS 

SET INTENSITY ON 
SET CURSOR ON 
CLOSE ALL 

PROCEDURE BK_DADOS 



* Rotina principal do Backup (do disco 
rigido p/ disquete) * 



STORE .F. TO 

ca n c e ls, repet e, erro, fim, arq_dbt, fim_dbt, last_disk, flag 
STORE 0 TO gravado, disco, tarn, grv_arq 
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disquete • .F. 

num_arq - ADIR ( ' * . DBF ' ) 
num_arql« ADIR ( ' * . DBT ' ) 
tot_arq * num_arq + num_arql 
STORE 1 TO copia, ind_arq 

IF nuxft_arq=0 

HENS ( 'Mao ha arquivos .DBF p/ fazer 
backup I ' ) 

RETURN 

ENDIF 

DO GET_DISX 

IF erro .OR. cancela 

KENS ('Backup cancaladol Tecle algo..') 
RETURN 
ENDIF 

9 12,10 SAY 'Copiando arquivo — > ' 

DO WHILE .T. 

DO OPBN_FON 
IF cancala 
EXIT 
ENDIF 

DO WHILE .T. 

9 12,34 SAY SPACE ( 15 ) 

IF .NOT. arq_dbt 
9 12,34 SAY arr_dir [copia] 

ELSE 

9 12,34 SAY arr_drl [copia] 

ENDIF 

arq_das = driva+arq_fon 

DO OPBN_DES 
IF cancala 
EXIT 
ENDIF 

IF tarn > disk_£rae 
flag ■ .T. 
f_slze » disk_free 
DO ORAVA 
IF cancala 
EXIT 
ENDIF 

tan > tan - grv_arq 
FCLOSE ( dastlno ) 

DO QET_DISK 
IF arro .OR. cancela 
EXIT 
ENDIF 

9 12,10 SAY 'Copiando arquivo — > 
ELSE 

f_size = tan 
disk_free = disk_fraa - tan 
DO ORAVA 
IF cancela 
EXIT 
ENDIF 

FCLOSE (dastino) 

FCLOSE (fonta) 
copia = copia + 1 
IF copia > num_arq 
IF arq_dbt 
fim_dbt = .T. 

EXIT 

ENDIF 

IF num_arql«0 
fin » .T. 

EXIT 

ENDIF 

EXIT 

ENDIF 

DO OPBN_FON 
IF cancala 
EXIT 



ENDIF 

LOOP 

ENDIF 

ENDDO 

IF erro .OR. fin .OR. cancela 
EXIT 
ENDIF 

if fim_dbt 

EXIT 

ENDIF 

arq_dbt = . F . 
num_arq = ADIR( ' * .DBT' ) 

IF nun_arq = 0 
EXIT 
ENDIF 

arq_dbt = .T. 
copia = 1 
ENDDO 

IF cancela .OR. arro 

MENS ('Backup cancaladol Tecle algo..') 
RETURN 
ENDIF 

last_disk = .T. 

DO GRV_CAB 

MENS ('Backup Conduido. Tecle algo..') 
RETURN 

PROCEDURE OPEN_FON 

• * 

* Abre arquivos do disco rigido a seran 
gravados nos disquetes * 



IF .NOT. arq_dbt 

arq_fon = arr_dir [copia] 

ELSE 

arq_fon = arr_drl [copia] 

ENDIF 

arq_frag ■ arq_fon 

fonta - FOPEN ( arq_f on, 2 ) 

IF fonta » -1 
DO ALERTA 
RETURN 
ENDIF 

tan = FSEEK( fonta, 0,2) 

FSESX( fonta, 0,0) 

RETURN 

PROCEDURE OPEN_DES 

* 



* Abre arquivos no disquete p/ gravacao 



DO WHILE .T. 

dastino = FCREATE ( arq_des , 0 ) 
IF dastino = -1 
DO ALERTA 
IF repete 
rapete = .F. 

LOOP 

ENDIF 

ENDIF 

EXIT 

ENDDO 

RETURN 

PROCEDURE ORAVA 




STORE .F. TO cancels, repete 
grv_arq = 0 

DO WHILE .T. 

bloc » 4096 
buffer = SPACE (bloc) 

IF f_size<4096 
bloc = f_size 
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buffer = SPACE (bloc) 
ENDIF 

DO WHILE .T. 
r_bytes = 

FREAD ( fonts, ^buffer, bloc) 

IF r_bytes ! = bloc 
DO ALERTA 
IF repete 
repete = . f. 

LOOP 
ENDIF 
ENDIF 
EXIT 
ENDDO 
IF cancels 
RETURN 
ENDIF 

DO WHILE .T. 
w_bytes = 

FWRITE (destlno , buffer, bloc ) 

IF w_bytes 1 = bloc 
DO ALERTA 
IF repete 
repete = . f. 

LOOP 
ENDIF 
ENDIF 
IF cancels 
RETURN 
ENDIF 
EXIT 
ENDDO 

f_size = f_size - 4096 
gravado = gravado + w_Jbytes 
grv_arq = grv_arq + w_bytea 
0 15,10 aay 'Gravado ate 

agora s ' 

0 15, COLO SAY gravado PICT 
9,999,999' 

DO BARRA 
IF f_aize<l 
EXIT 
ENDIF 
ENDDO 
RETURN 

PROCEDURE GET_DISK 



* Rotlna que pede oa disquetes p/ gravacao 



r = SPACE (1) 

STORE 0 TO cop_arq, gravado, dlak_free, cont 

IF .NOT. inicio 
DO GRV_CAB 
ENDIF 

inicio = .F. 
stop = .F. 

IF flag 
flagl = .T. 
flag = . F . 

ENDIF 

disco = disco + 1 
0 08,10 CLEAR TO 15,78 
TONE (1000,1) 

SET CURSOR ON 

0 8,10 SAY 'Insira o disquete 
' +STRZERO (disco, 2 ) + ' no Drive '+drivel 

0 9,10 SAY 'Atencao! Todos os arquivos da 
unidade ' +drivel+ ' serao' 

0 10,10 SAY 'apagados... [ESC] cancels.' 
INKEY ( 0 ) 

SET CURSOR OFF 
IF LASTKEY ( ) =27 
cancels = . T. 

RETURN 

ENDIF 

DO APAGA 
IF cancela 
RETURN 
ENDIF 

DO WHILE .T. 

disk_free = DISKSPACE (bk_meml+l) 

IF disk_free < 1 

sn = CONFIRHA ( ' Erro de leitura no drive 
'+drivel+' . Repet ir (s/N)') 

IF sn = 'S' 

LOOP 

ENDIF 

cancela = .T. 

ENDIF 

EXIT 

ENDDO 



PROGRAMADORES 

CUPPER 



Tamos os melhorea utiHtirios para auxiUA-lo 
na programagfc com cupper, dBase ou 
Foxbaae. Sio edttore* da program as 
fortaa, udttArio* para ustagam de fortes, e 
as mats Incrfveis Wbltotecaa com novos a 
fantfkeUcoa comandoa a ftjnoOe© para 
CUppar 5.01 a 5.2, Inclusive com funpOes 
qua utiUzam mode grftflco, slmulando 
perfattamente o ambient© WINDOWS. 

Fora rtabar fin disqwte con erqiwot NG 
(Help 0« Um) w doc — I g Ao Jo vires 
fa fc few nu « mhb wwhf soas fi mM odw, 
emrii 2 URV 
CHEQUE NOMINAL A 
NADIA SOUZA 

panr 

NTA 

Caboa Postal 6015 

FORTALEZA - CFP 60451-970 



SOFT 

■6bS 



* 24 HORAS NO AR 

* 2 GIGABYTES DE PROGRAMAS 

* JOGOS E APLICATTVOS 

* WINDOWS E DOS 

* 1200 .... 14400 bps 

* TAXA P/ INCRigAO 
MENSAL 7URV 



Qualquer usudrio pod era conectar 
oa Classic Soft BBS, para conhecer 
nosso sistema e tera Tista dos 
softwares da BBS e catdlogo 
eletronico. 



INFORMAgOES: 
Te£/FAX:(01 1)875-4644 



PROMOgAO 



GANHE 30% DE 
DESCONTOPARA 
COMPRA SUPERIORES 
R$ 50,00 



1.500 Titulo de Software, 
Jogos e Aplicativos para 
PC com lar^amento 
simultaneo com USA e 
EUROPA 



Pe$a ja seu catalogo 
gratis, por telefone ou 
FAX: (081) 361-2434 
Recife 



Se voefi possui MODEM; 



se ligue na 

&K0Ut/’ 




* Acesso a InterNet 

* 04 CD-ROM cl milhares de 
softwares 

* Cadastramento ON LINE 
*14.400 BPS 

* Hordrio 24 horas 

* Novo telefone: 
(011)871-2859 













IF cancela 
erro = .T. 

RETURN 
END IF 

IF .NOT. arq_dbt 

FOR f = ind_arq TO num_arq 

cop_arq = oop_arq + arr_tam[f] 
cont = cont + 1 

IF di sk_f ree < ( cop_arq+ (900* cont ) ) 
stop = .T. 

EXIT 

ENDIF 

NEXT 

IF num_arql>0 .AND. .NOT. stop 
FOR f = 1 TO num_arql 
cop_arq = cop_arq + arr_tml [ f ] 
cont = cont + 1 

IF dlsk_free < (cop_arq+ (900*cont) ) 
EXIT 
ENDIF 
NEXT 
ENDIF 

ELSE 

FOR f = ind_arq TO num_arql 

cop_arq = cop_arq + arr_tml[f] 
cont = cont + 1 

IF disk_free < (cop_arq+(900*cont) ) 
EXIT 
ENDIF 
NEXT 
ENDIF 

disk_free = DlSKSPACE(bk_meml+l) - 
(cont*900) - 5X2 

0 8,10 CLEAR TO 18,78 
0 8,10 SAY 'Disco t '+STRZERO(disco,2) 

9 8,30 SAY ' Gravando ' 

9 10,10 SAY REFLIC ( CHR ( 17 6 ) , 5 1 ) 
passo = disk_f ree/50 

0 13,10 SAY 'Espaco total do 
disco ' 

9 13, col ( ) SAY DISKSPACE (bk_meml+l) PICT 
'®E 9,999,999' 

9 14,10 SAY 'Espaco dlsponlvel p/ 
Backup : ' 

9 14, col ( ) SAY disk_£ree plot '®E 
9,999,999' 



PROCEDURE GRV_CAB 



IF flag 

texto = texto + '1' 

ELSE 

texto = texto + '0' 

ENDIF 

IF flagl 

texto = texto + '1' 
flagl = .F. 

ELSE 

texto = texto + ' 0 ' 

ENDIF 

IF last_disk 
texto = texto + '1' 

ELSE 

texto = texto + ' 0 ' 

ENDIF 

texto = texto + arq_fon 
tam_cab = LEN( texto) 

DO WHILE .T. 

w_cab = FWRITE (dest_cab, texto, tam_cab) 

IF w_cab< >tam_cab 
DO ALERTA 
IF repete 

repete = ,F. 

LOOP 
ENDIF 
ENDIF 
EXIT 
ENDDO 
IF cancela 
RETURN 
ENDIF 

FCLOSE (dest_cab) 

RETURN 

PROCEDURE APAGA 





arc cab = 

drive+ ' CONTROL . ' +STRZERO ( disco , 3 ) 

DO WHILE .T. 

dest_cab = FC REATE ( arc cab , 0 ) 

IF dest_cab = -1 
DO ALERTA 
IF repete 

repete = ,F. 

LOOP 
ENDIF 
ENDIF 
EXIT 
ENDDO 
IF cancels 
RETURN 
ENDIF 

texto = STRZERO ( disco , 2 ) +cabdados 



cancela = .F. 

DO WHILE .T. 

PRIVATE arq [ ADIR ( drive+ '*.*')] 

DECLARE arq [ADIR ( drive* '*.*')] 

ADIR ( drive+ '*.*', arq ) 
n_arq = ADIR ( drive+ ' * . * ' ) 

IF n_arq=0 

arqteste = FCREATE (drive* ' teste. 000 1 , 0 ) 
IF arqteste = -1 

sn = CONFIRMA( 'Atencao! Problemas c/ o 
Drive ou disquete. Repetir (S/N)') 

IF sn = 'S' 

LOOP 

ENDIF 

cancela = . T. 

ELSE 

FCLOSE ( arqteste ) 

DELE FILE & (drive* ' teste . 000 1 ) 

ENDIF 
ENDIF 
EXIT 
ENDDO 
IF cancela 
RETURN 



0 11,10 SAY 'Aguarde. Apagando arquivos da 

unidade ' +drivel+ ' ' 

FOR h = 1 TO n_arq 
masc = drive*arq[h] 

DELE FILE fimasc 
NEXT 

0 11,10 SAY ' 
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GLOBAISOPT MFORAATIGA Tel : (Oil) 214-0289 N 

R. Barao de Itapetininga, 297 - sala 44 - Sao Paulo - SP CEP 01042-001 (a 5 mts. do metro Republican 



♦ 






Pre?os (Discos incluidos): HD 1.8URV-DD 1.4 UR V 
Garantia : 60 dias contra virus edefeitos.Taxadecorreio a cada 15 discos: 2.0 URV 
PROMOCAO DO MES:Concorra a x Placa de Sons mais 4 Sw p fT| H r ^"«a Ai 
A cada 10 copias com disco, ganhe uma a sua escolha;a cada 50 cdpias, ganhe 09 



JOGOS PARA PC-XT / AT 




EDUTAINMNETCD 16 
730 URV'S 



iisiai 



JOYSTICK DE MAO 
35 URV'S 



CONSULTE 

TAMBEM 

PRECOSDE 

MICROS 

IMPRESSORAS 

EOUTROS 

ACESSORIOS 

ENTREGAMOS 

EMTODOO 

BRASIL 



C6D. NOME DO JOGO 

JOGOS EM HD 



Afcrrarr art of wi in !*im c 
B-17 plying pomass c 

BATMAN RSTURNS C 

BEAT IN IKS MUSE C 

CAR t CMIYER 0 

CARRIERS AT MAR Q 

CHALLJW5R OF THE nVB REALMS 1 
TOES* MANIAC 5 BILLION AND 1 1 

CTVHjzatxq* 0 

COBRA MISSION 0 

CCMANCKB 0 

COMMANDER KEEN V 0 

COMMANDER KEEN VI 0 

CREEPERS 0 

CURBS OF ENCHANTRESS 0 

DARK SEH) 0 

DARXLAND* 1 

DAY OF 1MB TBmCLB 0 

DAUCWITO OF TOE SERPENTS 0 
DRAGON'S LAIA TV 0 

a*® n o 

BOO QUEST II 0 

el nat 0 



FREDDY PKARXAS 
FRONT PACK FOOTBALL 
OCMLINB II 

GREAT NAVAL BATTLES 
GLN SHIP 2000 ISAK3 L ICE 
IdMDML 
HOME ALONE 2 
HUMANS 
INCA 

INSPECTOR GADGET 
I SAND OF tT. BRAIN 
JILL CP DC JJCLE n 



KDC'I QJEffT VI 03 KD 

LAURA BOM; DAG. OF AMCN RA 05 HD 

LBCWDS OF VAUWR 04 HD 

LWMDC8 II -TOE TRIBES* 02 HD 

UK) OF DC RUC n 05 HD 

LOOT IN LOR WCBLES 05 KD 

LURE OF TEMPTRE88 02 KD 

MAELSTOCN 06 HD 

MANCKSSTBR UNITED FOOTBALL 01 HD 

MANTIS SPEECH PACK 03 HD 

MARIO IS KISSDC 05 HD 

MIGHT AND MAGIC III 03 HD 

XICKT AND MAGIC IV 03 KD 

MAGIC CANDLE HI 03 KD 

MONOPOLY DELUXE FOR UK. 02 HO 

WVA 3 05 HD 

PCUCE QL*OT I [VGA) 06 KD 

lORXGUS n 05 KD 

POWER HONGS 03 HD 

wurms cp nnszA n 04 hd 

NJNCM OVER 01 HD 

3*SV TOR OIOW I (VGA) 06 KD 

0-EOT PCR GLORY III 05 KD 

REX NEBULAR 10 KD 

RISK WINDOW 02 KD 



SHADOW PRESIDENT 
SPACE QUWT V 
SPEEL CAOTOC 301 
SPBEL CRAFT 
OTOPOr LDC 1314/131 B 
STRIKE COWMAN OCR 
OTRXXS COMMANDER SPEECH 
SHAFT ISAM) 

SIMMER CHALLKCK 



HOI 62 TOE DARK HALF 

H01 *3 TOE CODPATOKR 

HOI 4 4 TOE INCREDIBLE MACHINE 

H01 65 THE LEGEND OF KYRAN01A 

H0164 THE AOOCTORR 

HOI 6 3 TOE 8UM4CNXNG 

H0178 ULTIMA UWDERWORD II 

W173 ULTIMA vn 

*02 u ium vn pst n 

H0233 ULTRA SOTS 



WEEN THE PROPHECY 
SPACE CARMEN SAN Cl EGO 
WORLD CIRCUIT 
MWLD CIRCUIT UPDATE 



A^AO E AVENTURA 



INDIANA JCNSS LAST CfVZADS 
□SHAW JIMS II 
IKARI MWRIOAS 



METAL WJTtoiT 
MIAMI VICE 
MOCN WALKER 



ADVENTURES E R.P.G. 



CAAMEM SAND I BOO IN EUROPE 



CAflMOt SANDiaro IN WORLD 
CTLOCL B QUEST 
COMQUEOT OF CAMELOT 



INDIANA JK8 LAST C3UZADE [Q 06 I 
INDIANA JOBS [AST CNLEAD6 (V)14 £ 
KDO'S QCBT I 02 [ 

l®c s QKBT n 02 c 

kdc b gear m 03 c 

KDC'S QJBBT IV 03 C 

i^xbjc Eurr LAfnr i 02 c 

LEXERS EOT LARRY II 06 D 



MIGHT AND »MG1C n 
roues Qswr i 
ruce q»t n 
SACS QLEOT I 
owe qcst n 
SACK QUEST Hi 



J0481 SIM TREK 
J0482 SOW TRBC \ 

J05B7 TOR Otcsnpj 

JO 5 30 TOE SacRET 



CARROS, MOTOS 



CARTAS E CASSINOS 



ESPACIAIS 



CRISITAWe DR OUVEDW (V) 



PENTHOUSE JIGSAW PUZZLB(V) 



TBAS W7HCAS * .OF [V) 06 

TOLAS EROTICA* '.SW (WINDOWS) 05 
TOLA EROTICA 01 

WGOLDXS FOR MDIDCW8 01 

RACIOCiNIO 



AKRmiD Ef 
ARKAMCHD PLUS 
ATXDt [V) 



SIMULADORES 




J0023 AIR CCNBAT SIMULATOR 

JO024 AIR TRAFFIC COYTOOL 

JO 064 BATTIK HAM'S 1342 

J00B3 SIS MX 

J0167 F-117A STEALTH PlUTIUt 2. 

J01M F-14 TO CAT 

jam F-i5 maps warn j 

JCH90 P-15 Dims 8R3JE U 

J0131 F-16 CCM1AT PILOT 

J0192 p-13 nxAuro Picwrro 

J0133 F-23 MnMLXATOR 

J0134 F-40 PERSurr SZMAATOR 

J0188 FALCTI 1.0 

J0203 FIGHTER BOMBER 

J0234 GUM BOAT 

J0235 OK MR 

JCQS3 JET F-16 F-18 

•koto jet ram* n 

J0398 PU03 

JO 4 03 RAIL ROAD TYOK 

J0432 SECRET 3BAPCMS UUFT3AR 

J0436 SWMAM M4 

J>44i bhott s**acs n 

J0455 sor rma <v) 

■XOt KKR □ 




Se preferir, ectre exn contato para deposito ban carlo ou Sedez a cobrar. 
Ou venha nos visitar pessoalmente. 









RETURN 




DO OPEN_CTL 






IF cancela 


PROCEDURE BARRA 




EXIT 


* * 




ENDIF 


* Rotina qua mostra na tela o andamento da 






gravacao atraves de barras * 




IF VAL(disk_ctl)ol 


* — ■* 




an = C0NFIRHA( 'Atencao! Dlaco nao 


col_bar = INT ( gravado/passo ) 




confere. Continuar (S/N)') 


SETCOLOR (xcor2 ) 




IF Bn = 'N' 


0 10,10+col bar SAY CHR(177) 




cancela = . T. 


SETCOLOR (xcorl) 




EXIT 


RETURN 




ENDIF 






FCLOSE( fonte) 


PROCEDURE ALERTA 




LOOP 


• * 




ENDIF 


* Rotina invocada quando ocorre urn erro 




EXIT 


qualquer durante o Backup * 




ENDDO 


* Esta rotina e usada tambem pelo programa 




IF cancela 


'BK2.PRO'. * 




SET INTENSITY ON 


* * 




SET CURSOR ON 


an = CONFIRMA( 'Atencao! Erro DOSt 




RETURN 


' +STR ( FERROR { ) , 2 ) + ' Repetlr (S/N) ' ) 




ENDIF 


STORE .F. TO cancela, repete 




0 13,10 SAY 'Data do Backup: ' 


IF an = 'N' 




0 13, COLO SAY SUBSTR(dat_Ctl,l,2)+'/ 


cancela = .T. 




' +SUBSTR ( dat_ctl ,3,2)+'/'+; 


ELSE 




SUBSTR ( dat_ctl ,5,2) 


repete = . T. 




0 14,10 SAY 'Hora do Backup: ' 


ENDIF 




0 14, COLO SAY 


RETURN 




SUBSTR(hor_ctl,l,2)+' : ' +SUBSTR(hor_ctl, 3,2 ) + ' : '+; 






SUBSTR (hor_Ctl ,5,2) 




PRIVATE 






arr_dir0 l[ADIR(drivB+ '*.*') ] ,arr_tm[ADIR(drive+'*.*' ) ] 


■rk"? PRr: ■ 




DECLARE arr_dir 01 [ADIR(drive+ '*.*') ] 


■ Di\z.rr\o ■ 




DECLARE arr tmOl [ADIR (drive+ '*.*')] 






num arq = 


* Programa BK - Backup p/ Arqulvoa .DBF e 




ADIR ( drive+ arr_dir 0 1 , arr_tm0 1 ) 


. DBT * 




diak_free = DISKSPACEO 


* Deaenvolvimento : Valmir menegaz de Souza 




IF diak_free < 1 


* 




HENS ( 'Atencao! Nao ha eapaco no diBCO 


* Florlanopolla - SC 




rlgido. Tecle algo..') 


* 




SET INTENSITY ON 


* Arquivo: BK2.PRO - Reataura arqulvoa do 




SET CURSOR ON 


dlaquete * 




RETURN 


* 10/04/94 




ENDIF 


* 




tot_arq = 0 


********************************** 




FOR f = 1 TO (num_arq - 1) 


SET INTENSITY OFF 




tot_arq = tot_arq + arr_tm01[f] 


SET CENTURY OFF 




NEXT 


STORE 0 TO 




diak_free = DISKSPACEO - (nun_arq*900 ) 


cop_arq, gravado, diak_f ree, cont , num_fra 




0 8,10 SAY 'Dlaco: ' +STRZERO (diBCO, 2 ) 


STORE 1 TO diaco,copia 




0 8,30 SAY 'Reataurando ' 


IF bk_meml = 0 




0 10,10 SAY REPLIC ( CHR (17 6), 51) 


drive = 'A: ' 




paaso = tot_arq/50 


drivel = 'A' 




fra = .F. 


ELSE 






drive = 'Bt' 




DO RT DADOS 


drivel = 'B' 




IF cancela .OR. erro 


ENDIF 




HENS( 'Reatauracao cancelada. Tecle algo..') 


** pede dlaco no. 1 




ENDIF 


SET CURSOR ON 






0 8,10 SAY 'Inalra o dlaquete 




SET INTENSITY ON 


'+STRZERO(diaco, 2 ) +' no Drive ' -fdrivel 




SET CURSOR ON 


0 9,10 SAY 'e apos tecle algo [ESC] 




0 8,10 CLEAR TO 18,78 


cancela . ' 




CLOSE ALL 


INKEY ( 0 ) 






0 8,10 CLEAR TO 9,78 




PROCEDURE RT DADOS 


SET CURSOR OFF 




* * 


IF LASTKEY ( ) =27 




* Rotina principal p/ reatauracao doa dadoa 


flm = .T. 




noa diaquetea * 


SET INTENSITY ON 




* * 


RETURN 




STORE .F. TO 


ENDIF 




cancela, repete, erro, flm, arq_dbt , fim_cfot , flag, fra_ant 


cancela = .F. 




STORE 0 TO 


DO WHILE .T. 




gravado, tarn, grv_arq, flag, tot_arq,narqj3tl,wdrive,n_drivB 


fonte o FOPEN ( drive*' CONTROL. 0 0 l 1 ) 




arq_ant = SPACE (1) 


IF fonte = -1 






HENS ('Erro de abert. '+drive+' CONTROL. 00 l 1 ) 




wdrive = ' C : ' 


cancela = .T. 




0 12,10 SAY 'Reataurando Arquivo -> ' 


EXIT 




grv_prim = . F . 


ENDIF 
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MEGASOFT INFORMATICA Tel : (Oil) 231-2367 

Av. Ipiranga,345 - sala 1107 - Sao Paulo - SP CEP 01046-010 ( 50 mts. do metr6 Republica) 

IrTlPX'X Presos (Discos incluidos): HD Maxell = 1.8 URV / DD Vat =1.4 URV F ax/F one :2 1 4-2650 

limiK Garantia : 60 dias contra virus e defeitos. Taxa de correio a cada 15 discos: 2.0 URV 

IMlIH VlCT :Concorra a 1 Placa de Som e mais 4 Superpremios (Consulte !) 

A cada 10 c6 P ias com dis co, ganhe uma h sua escolha; a cada 50 c6pias, ganhe 10. 

I ^ g. L L' * Suporte telefonico (Dicas de jogos e instrusoes sobre os aplicativos) 

_ * Qualidade e bom atendimento e nosso lema para ser a melhor Softhouse de Sao Paulo. 



J 



C 6 D. NOME DO JOGO 




111 



FIELDS or OUMX 

MHO* F *5 CMAJdOS AURTHIA 

H 0407 m CWAAIOS RBMHYA 

ITO 357 FE 5 CSNAJdOS HUM YORK 

mrs* m cmakxor cams 

M 07 M m cmuioi arm Francisco 

HOI c GABRIEL Ml OFT 

H 0777 GREAT NAVAL BATTUE* 2 

H 03 M DO 2 

HO 345 JUUUDC PAHA 

»M< LEI BUM BUTT LA HOT VI 

HO 401 LIVERPOOL SOCCER 

H0373 LOST M 1H 

H01I1 MASTER OP ORION 

HDM7 METAL 4 LACK 



H 0404 OEGAit 

HOHI MUC nun ( 4 M) 



TOR TORE JUDMMT RITES 



IDI.OS INI Ml) 



(CL KIQ 1 .TAB 
ALCNK IN US DARK 
l AMAZON 

anctdft art or mar in sobs 
b-17 plttjo rarrw gaa 

> BATMAN RETURNS 
■EAT 7 KE MOUSE 

CAR 4 nuvm 

I CARMEN SAND I SCO DELUXE 
CARMEN RAND I (CO QJ BRACE 
CARRIERS AT NAA 
Ol5H£9 2 

challkg* or rrvx rbaims 
anas muhac 5 billion and x 
I CIVILIZATION 

COBRA MX BET CM 
COMANCHE OVERKILL 
COMANCHE MISSOES 1 
COMANCHE XI SHOES 2 
COPS 4 ANDBR KEW S 
OOM 4 ANDCT KEEN 4 
CREEPERS 



F-15 VIRIXE EK2E 3 
FALCON 3.0 

FT IV EL AN AMERICAN TAIL 



FRONT PACE FOOTBALL PRO 
GREAT NAVAL BATTLES 

ounkip 2000 

CU 4 KIP 2000 ISAAC 4 ICS 
HOME ALONE 2 



INDIANA JONBS ATLANTIS 
DIDY CAR RACING 
ISAM) or tr. MAIM 
JORUM IN FLIGHT 



roc's qjbst 4 

LANDS OP LOSS 

LAURA BOM: DAG. OP AM 0 N RA 
UM 4 HCS 2 “THE TRIBES* 



\< U> v \\ I \ M K \ 



LOST IN LOB A 

urns or wi 



01 HD 

UNITED FOOTBALL 01 HD 



JO 001 007 JAMBS BOM) 

J0012 AAHTHI I ! 

J 0024 ALT O E. TSDC 4 C 

JOOll ALTERED *XET 

JO 03 ( ARACHNO PHOBIA 

J0044 AOTEKDt 

J 004 I AXE OP RANGE 

JO 050 BMX TO TW FUTURE 2 

J 0051 BACK TO US FUTURE 3 

JO 052 BAD DUDES 

J 0041 BATMAN THE MOVIE 



CAPONE 

CCMAW THE CUMBRIAN 
CRIME HAVE 
DAVID NOtF 
DEATH WORD 
DICE TRACS 
DOUBLE DMAOGN 2 
cmoaca LAIR 2 
CMOCM S LAIR 3 



INDIANA J 0 MES LAST CKTZAOC 



KARNOV 

LIFE AMT DEATH 1 
MAD MIX GAMES 



PANZA KIOC BOXER 
PIRATES OP BARBAXY 
NAT 0 CN 




\l>\ I \ | I Ul s , KIM.s 



J 0104 CARMEN BAMDIBOO IN EUROP 
J 0107 CAHMSM BAMDIBO IN USA 

joioi aim samdieoo in tins 

J 010 I CAJMEM SAMDIEOO D* M 3 RLO 
J 012 I sum B (PENT 

J 0134 COW 77 E WT OP CAM BUT 

J 014 S DCPEKDKR OP THE CROW 

J 0144 ntAOGNS STOIC* 

JOX 4 * DRAKnOBI 
J 0172 OJCX TALES 



XDO-E 0*1 1 

JQ 27 E rocs qjwt 2 

J 027 » EDO'S gjSPT J 

JO 2 S 0 EDO'S OJVT 4 

LEXEME KIT LAN 



JOM 7 TW D 40 HAL 

J 033 O THE mxmr CP MOHR IK. 

J 05 I 4 MATH OP TW DB 4 CN 



< \UU( IS . \|i)l( IS 



JD 2 L 2 PCRD KDCLATOR 1 

J 0213 FORD SIMULATOR 2 

JO 224 GRAM> PWX CIRCUIT 

JO 22 » GRAND MUX LNLDCTB 3 

J 0234 HAM) acVB 1 

J 0237 HARD OCVE 2 

J 023 I HARLEY DAVIDSON 
J 0242 Dd ANATOLIS 500 

J 04 M IRCN MAM SUPER OPT ROAD 

J 02 B 4 LE Mncw MAYA 
J 02 J 4 LOMBARD RALLY 
J 0314 MARIO AMORSm RACING 
JO 3 41 MEM CP MOTOCICLES 

J 0354 orr SHORE WARRIOR 

J 0344 our hm 
J 0372 RALLY RAMIS DAKAR 

JOT 7 S KT SEX* 

JQ 344 PCtE IDsmCM 2 
J 03 X 2 POMS UUFT 

J 0452 sno past 




J 01 I 3 CAVB 4 A 
J 01 XS CHAM PI d 

J 0171 DREAM H 

J 017 * BAM. M 

J 0215 nnnB 
J 0214 PU 1 UOL 

J 0239 HARLEM 
JtSii hxt uacx 



J 82 »» LON ICON 
J 030 I KAMCXETOR UNTIED 
J 0331 MERE OTTO ISEDOT. 

J 0340 CM ON CM pOSORN ' 

JO 370 FRNZA BOX BCXXDO 
J 0374 PQA TOUR OCLP 
J 0434 REWICE PLAY TBSOB 
J 0453 SKATE OR an 
JO 454 BRATS ROCK 
J 03*4 Ml PRO TO* 

JO 52 3 TW WINTER GAMBS B 



Pedidos: Por carta ou telefone de Segunda a Sexta das 9:00 as 19:00 e aos Sdbados das 9:00 as 14:00. Relacione o 
nome, o codigo e a quantidade de discos de cadaprograma. Se preferir, visite-nos pessoalmente. 

Pagamento : Envie um cheque nominal a J & M INFORMATICA LTD A. no valor total de seu pedido nao se 
esquecendo de adicionar a taxa de correio. Nao trabalhamos com SEDEX a cobrar. 





















DO WHILE .T. 



&& loop do restore 



vetorl = 'arr_dir' +STRZERO( disco, 2 ) 
vetor2 = ' arr_tm' +STRZERO (disco, 2 ) 

DO R_OPFON 
IF cancela 
EXIT 
ENDIF 

DO WHILE .T. 

9 12,34 SAY SPACE (15) 

9 12,34 SAY frvetorl [copia] 
arq_des = wdrive+frvetorl [copia] 

IF fra_ctll = '0' 

R_OPDES ( ) 

ENDIF 
IF cancela 
EXIT 
ENDIF 

IF fra_ctll = '1' .AND. copiaol 
R_OPDES ( ) 

ENDIF 
IF cancela 
EXIT 
ENDIF 

IF tam > disk_free 

MENS ( ' Atencao ! Nao ha espaco p/ 
continuar restauracao . Tecle algo . . ' ) 
cancela = .T. 

EXIT 

ENDIF 

f_size = tam 

disk_free = disk_free - tam 
DO R_GRAVA 
IF cancela 
EXIT 
ENDIF 

IF ( copia+ 1 ) =num_arq 
IF fra_ctl = '0' 

FCLOSE (destino) 
fim = .T. 

ENDIF 

EXIT 

ELSE 

FCLOSE (destino) 

ENDIF 

FCLOSE (fonte) 

copia = copia + 1 

DO R_OPFON 
IF cancela 
EXIT 
ENDIF 
ENDDO 

IF erro .OR. fim .OR. cancela 
EXIT 
ENDIF 

FCLOSE (fonte) 

STORE 0 TO cop_arq, gravado,disk_free, cont 
disco = disco + 1 

vetorl = 'arr_dir'+STRZERO(disco,2) 
vetor2 = ' arr_tm' +STRZERO (disco, 2 ) 

copia = 1 

9 8,10 CLEAR TO 15,78 
TONE ( 1000 , 1) 

SET CURSOR ON 

9 8,10 SAY 'Insira o disquete 
' +STRZERO(disco, 2 ) + ' no Drive '+drivel 
9 9,10 SAY '[ESC] cancela.' 



INKEY ( 0 ) 

9 8,10 CLEAR TO 9,78 
SET CURSOR OFF 
IF LASTKEY ( ) =27 
cancela = . T. 

EXIT 

ENDIF 

DO WHILE .T. 
fonte = 

FOPEN(drive+' CONTROL. '+STRZERO(disco, 3) ) 

IF fonte = -1 
MENS ( ' Erro de abert . 

'+drive+' CONTROL. '+STRZERO(disco,3) ) 
cancela = . T. 

EXIT 

ENDIF 

DO OPEN_CTL 

IF VAL ( disk_ctl ) < >disco 
TONE (1000,1) 

9 17,20 SAY 'Atencao! Disco nao 
confers! ! Troque o disco e' 

9 18,20 SAY 'apos tecle [ENTER]. 

[ESC] cancela' 

INKEY ( 0 ) 

9 17,20 CLEAR TO 18,78 
IF LASTKEY 0=27 
cancela = .T. 

EXIT 

ENDIF 

FCLOSE (fonte) 

LOOP 
ENDIF 
EXIT 
ENDDO 
IF cancela 
EXIT 
ENDIF 

disk_free = DISKSPACEO 
IF disk_free < 1 

MENS ( 'Atencao! Nao ha mais espaco p/ 
restaurar os arquivos.') 
erro = .T. 

EXIT 

ENDIF 

DECLARE frvetorl [ADIR(drive+ '*.*')] 

DECLARE &vetor2 [ADIR (drive+ '*.*')] 
num_arq = 

ADIR (drive+ frvetorl, frvetorS ) 
tot_arq = 0 

FOR f = 1 TO (num_arq-l) 

tot_arq = tot_arq + &vetor2[f] 

NEXT 

disk_free = DISKSPACEO - (num_arq*900) 

9 8,10 CLEAR TO 18,78 
9 8,10 SAY 'Disco: ' +STRZERO (disco, 2 ) 

9 8,30 SAY 'Restaurando ' 

9 10,10 SAY REPLIC ( CHR (176) ,51) 
passo = tot_arq/50 

9 12,10 SAY 'Restaurando Arquivo -> ' 

9 14,10 SAY 'Data do Backup: ' 

9 14, COLO SAY SUBSTR ( dat_ctl ,1,2)+'/ 

' +SUBSTR (dat_ctl, 3,2)+'/'+; 

SUBSTR ( dat_ctl ,5,2) 

9 15,10 SAY 'Hora do Backup: ' 

9 15, COLO SAY 

SUBSTR (hor_ctl, 1,2)+' : '+SUBSTR(hor_Ctl,3,2)+' : '+; 
SUBSTR ( hor_ctl ,5,2) 
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SOLICITE COPIA DEMONSTRATIVA 







ENDIF 


RETURN 




ENDIF 






EXIT 


PROCEDURE R_OPFON 




ENDDO 


* Rotina que abre os arquivos nos disquetes 




RETURN 


p/ gravacao no disco rigido * 






* * 




PROCEDURE R GRAVA 


cancels = . F. 




* * 


DO WHILE .T. 




* Rotina que grava um arquivo do disquete 


arq_fon = drive+&vetorl [copia] 




p/ o disco rigido * 


fonte = FOPEN(arq_fon,2) 




* * 


IF fonte = -1 




STORE .F. TO cancela, repete 


DO ALERTA 




grv_arq = 0 


IF repete 






LOOP 




DO WHILE .T. 


ENDIF 




bloc = 4096 


ENDIF 




buffer = SPACE (bloc) 


EXIT 






ENDDO 




IF f size<4096 


IF cancela 




bloc b f size 


RETURN 




buffer = SPACE (bloc) 


ENDIF 




ENDIF 


tam = FSEEK( fonte, 0,2) 






FSEEK ( fonte, 0,0) 




DO WHILE .T. 


RETURN 




r_bytes = FREAD( fonte, ebuffer, bloc) 


PROCEDURE R_OPDES 




IF r_bytes ! = bloc 


* * 




DO ALERTA 


* Rotina que abre os arquivos no disco 




IF repete 


rigido a serein restaurados * 




repete = .F. | 


* * 




LOOP | 


cancela = . F. 




ENDIF 


DO WHILE .T. 




ENDIF 


destino = FCREATE ( arq_des , 0 ) 




EXIT 


IF destino s -1 




ENDDO 


DO ALERTA 




IF cancela 


IF repete 




RETURN 


repete = .F. 




ENDIF 


LOOP 







GENESIS 2.1 



Ambiente de desenvolvimento de relatorios 
PARA CLIPPER 5 . 1/5.2 E COMPATIVEIS 



O GENESIS 2.1 e um ambiente de desenvolvimento de relatorios p/ clipper 5. 1/5.2 e 
compativeis (Summer 87, dBase, FoxBase) eliminando a necessidade de programas 
fontes, compilagao, Unkedigao e aumentando sensivelmente a produtividade. 

Composto de modulo objeto compatrvel com o clippers, podendo ser linkeditado e 
distribuldo juntamente com seus sistemas desenvolvidos em Clipper 5; e de mddub 
executavel compativel com qualquer versao do Clipper, dBase, FoxBase e similares. 

CARACTERISTICAS 

• Reduz em ate 90% o tempo de confecgao de relatorios simples e ate 70% de relatorios sofisticados; 

• Gerencia ate 250 arquivos (de todos os tipos) abertos simultaneamente; 

• Controle de alinhamento horizontal e vertical totalmente livre, permitindo ao usuario desenhar seu lay-out como 
desejar (etiquetas, cheques, notas fiscais, boletos bancarios, etc.); . 

• Controla ate 9 niveis de quebra e subtotals; 

• Permite criar indices internamente no GENESIS ou aproveitar indices ja prontos do seu sistema; 

• Permite filtros e ralacionamentos de forma identica ao Clipper ou controlados pelo usuario como em um 
programa tradicional; 

• Aceita qualquer expressao valida em Clipper como campo de impressao, inclusive fungoes do usuario, macros 
code blocks, objetos, etc; 

• Permite controle total de arquivos atraves das fungoes do Clipper 5, como dbSeek (), dbSelecAreaQ, dbSet- 
RelationQ, etc, possibilitando os mesmo recursos de um programa tradicional; 

• Possui controle dinamico do fluxo do relatorio atraves de comandos #IF...#ELSE#...#ENDIF e #GOTO...#CASE 
possibilitando gerenciamento dinamico da impressao para relatorios sofisticados ou especificos; 

• Possui senhas para impressao e edigao. 

• Permite criar e alterar facilmente drivers de impressoras, adaptando-se a qualquer impressora do mercado. 



Desconto de 50% para: 
Universidades / Escolas 



Maiores Informagoes 

CHIPS Micro Informatica 

TELS.: (0152) 21-0130/21-8763 

RUA REINALDO FERREIRA LEAO, 81 - CERRADO CEP 18055-020 - SOROCABA - SP 
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PORQUE 
ESCOLHER 0 
CONGRESSO 
FENASOFI 



SEGMENTO GERENCIAL TECNICO — 

7 SEMINARIOS COM 10 HORAS DE DURA$AO CADA, E 120 PALESTRAS 
NACIONAIS E INTERNACIONAIS TOTALIZANDO 190 HORAS DE INFORMAGAO. 

OS SEMINARIOS , 

1 - ABRANGENCIA E EVOLUfAO DA FAMIUA WINDOWS * 

2 - PLATAFORMAS OPERACIONAIS: OS/2 

3 ■ UNIX E REDES EM SISTEMAS ABERTOS 

4 - SOLUfOES PARA REDES CORPORATIVAS 

5 - MULTiMIDIA: A REAUDADE DE UMA NOVA ERA 

6 - TECNOLOGIAS EMERGENTES NA AUTOMAfAO DE PROCES. DE NEGOCIOS (BPA) 

7 - DBASE WINDOWS: ORIENTAGAO AO OBJETO E A CUENTE / SERVIDOR 



PALESTRAS NACIONAIS E IN 



DESENVOLVIMENTO 



.Uma Apresentagao k L6gica Fuzzy 

.Projeto de Sistemas Incorporando Principios de Reengenharia de Processos 
,A Orientagao a Objetos na Prdtica 
.Produlividade no Desenvolvimento de Software 
.Linguagens Visuais 

.Melodologia de Desenvolvimento de Sistemas para Ambiente Unix C/SGBDS e 
Linguagens de IV Geragao 

.Ambiente Cliente/Servidor: Desenvolvimento e RedesenvoMmento 
.Tecnologia de Protegao a Software 

.Paradigmas dos Ambientes de Desenvolvimento de Aplicagao nos Anos 90: 
Programagao Visual & Orientagao a Objetos 
.Cases - Metodologias e Ferramentas 
.Bancos de Dados Textuais X Hipertexto: Diferengas e Aplicabilidades 
.Portando Aplicagoes em C do MS-DOS para o MS-Windows 
.0 Impacto da Arquitetura Clients/ Servidor na Espedficagao de Sistemas 
.A Evolugao dos Sistemas Gerenciadores de Banco de Dados 
.Banco de Dados distribuidos 
.Implantagao Arquitetura Client Server 
.Desenvolvimento AplicagOes Client Server 
.Metodologias para Modelagem de Dados 
.Sistemas Integrados em Tempo Real: TendSndas para os Anos 90 
.“Tunning* em Banco de Dados Reladonais: Importance e T6cnicas 
.Ambiente de Desenvolvimento Orientado a Negddos 
.Indicadores de Produtividade e Quantidade a partir de M6trica 
.Desenvolvimento de Sistemas Distribuidos 
.Sistemas Operacionais Intelectuais do P.E. no Controls de Qualidade 
.Notes 



GERENCIAL 



.Reengenharia Empresarial: Urn Enfoque Orientado a Objetos 
.Downsizing SNA x TCP/IP 

.EIS/VIAA: 0 Poder da InformagSo na Ponta dos Dedos 
.Modelo Operadonal dos Arquivos como Base Estruturai para Informdtica 
,A ComunicagSo de Dados como Agente Integrador de Empresas, suas Areas 
Intemas, Clientes e Fomecedores 
.0 Novo Papel do Mainframe nos Ambientes Distribuidos 
.Prevengao de Virus e Outros Problemas de Seguranga de Dados: Relagao de Custos 
e Benefidos 

.Superservidores: Chegamos a Era do Micromainframe? 

.Reengenharia nos Negbdos AtravGs de Tecnotogias de CapadtagSo Humana 
.Bases de Dados de Acesso Publico 



.Direitos Autorais de Imagem na Multimidia, o Proximo Desafio 
.Importanda Estratdgica de Orientagao por Objeto 
.Reengenharia da Informagao 
.MegatendGndas da Tecnologia da Informagao 
.0 Papel de Tecnologia de InformagSo 

.Tendendas/Downsizing e SGBDS: Uma alianga que voc§ deve oonhecer 
.A Importanda dos Sistemas de Informagao na GestSo da Qualidade Segundo a 
ISO-9000 

.Terceirizagao do Suporte aos UsuSrios Hnais: Urn Plano de agao 



REDES E CONECTIVIDADE 



.EstagOes Inteligentes em Aplicagbes Cliente Servidor Avangadas 
.Implementando Cliente-Servkfor: Estudo de Dois Casos PrSticos 
.0 ‘Calcanhar de Aquiles* da Arquitetura Cliente/Servidor 
.Work Group Computing 
.Rede Corporativa dos Anos 90 

.Interoperabilidade: Questao EstratSgica nas Redes Corporativas 
.Mobile Environments Wireless Computing 
.Grandes solugOes em Conedividade para pequenas empresas 
.Gerendando o Ambiente Cliente/Servidor 

.AS/400- Ambiente Cliente/Servidor \ 

.Distribuigio EletrOnica de Software ^ 

.Internetwork - Planejamento EstratSgico da Solugao , 

.Otimizagao dos Recursos Empresariais com a Utilizagao de Redes Locais t 

.Conedividade de Sistemas Mbveis 



INTERNACIONAIS 



.The Challenge of Document Image Management on Large Networks 
.Fundamentals of Creating Client/Server Applications: A Comparison of Matrons 
.Virus: Como CombatS-los 
.A Highway to Client Server 
.The Importance of the Eletronic Mail 

.Os Mais Recentes Deserwolvimentos na Arte de Ligar o Micro e o Mainframe IBM 
.SolugOes em Armazenamento de Dados para Setvidotes de Rede Local e Multiusudrios 
Application Centric Connectivity Software, a New Approach Toward Inxcreasing 
User Productivity 

.Middleware, a Ffowerful Tool for Client Server Migration 
.Desenvolvimento para Multiplas Plataformas - Portabilidade 
.Using Voice and Fax Processing For Global Competitive Advantage 
.Conedividade Total em Redes de Longa DistSnda (WAN) 







0 CONGRESSO DA TECNOLOGIA 

ANHEMBI • SAO PAULO • 19 A 22 DE JULHO 

SEGMENTO USUARIO ESPECIALIZADO — 



ARQUITETOS, EMPRESARIOS, ENGENHEIROS, EXECUTIVOS, PUBLICITARIOS MEDICOS 
^?^ SS ^ ES E FUNC.ONAR.OS DE EMPRESAS ESTATAIS. CADA PROFISSAO DISPOE DE UM 
CONGRESSO ESPECIALIZADO QUE FOI ESTRUTURADO EM CONJUNTO COM 
ASSOCIATES DE CLASSE, UNIVERSIDADES, CENTRO DE PESQUISA E EMPRESAS 
FORNECEDORAS DE TECNOLOGIAS. 

SEMI MARIOS: 

I- E/S E CIS NA EMPRESA BRASILEIRA 
2 GIS NA ADMINISTRAQAO PUBLICA 

3- INFORMATICA NA MEDICINA 

4- AUTOMAQAO COMERCIAL E O USO DE CdDIGO DE BARRAS/MULTIMiDIA 

5- ENSINO DA INFORMATICA NO BRASIL 

6 - MACMUNDO 



DU 

20/07 

22/07 

21/07 

22/07 

19/07 

20/07 



1 DIA PARA CADA TEMA COM 7 HORAS DE TECNOLOGIA ESPECIALIZADA POR DIA 
42 HORAS DE PALESTRAS, WORKSHOPS, LABORATORIOS E EXPERIMENTS 
UMA ABORDAGEM ATUAL E COMPLETA APUCADA AOS DIFERENTES SEGMENTS DE TRABALHOS 



E MAIS 



Todos os congressistas 
receberao, gratuilamente, 
os Anais do Congresso, 
em disquete, o processador 
de lextos F6cil 'lor Windows' 
no valor de US$ 1 80,00, 
alem de uma assinalura 
semestral da Revista Byte. 



TERNACIONAIS 



■ Fraudes em Redes Locais: Prevengao e Combate 
• Rede Estruturada Integrando Dados, Voz e Imagem 



■ Gerendamento Remote de Redes 

■ Efidenda de Protocolos de Comunicagao de Dados Via Satelite VSAT 
•Comunicando Dados Via Telefonia Celular 

■ Interoperabilidade-Para que Serve? 

■Como Montar Backhomes de Redes Locais 

■ Implementando o Servidor EDI 

■ Infra-Estrutura de Rede em Urn Ambiente Cliente/Servidor 

■ Estratdgias de Comunicagao para Redes Corporativas 



PLATAF0RMAS TECN0L0GICAS 



• Projeto Chicago-Windows 4.0 

■ Unix x Windows NT 

■ Os Rumos da Computagao MOvel 

» Comunicagao e TransferSnda de Arquivos Windows-Unix 

■ Road Map: Unix 

■ Conhega a versatilidade do AIX/6000 

■ Rise System/6000 e Power Pc, Sistemas Operadonais e AplicagOes 



MULTIMIDIA 



• A Resposta das Tecnologias em Redes Locais para Suporte ds Novas 
AplicagtesGrdficas / Multimidia 

■ Tratamento de Imagem - Uma Estrategia de Marketing 

■ MuHimidia, a Fusao dos Meios 

■ MuHimidia em Marketing 

■ Parceria em Projeto de Multimidia 

■ Aumente o seu Poder com CD- Rom 

■ Processamento de Imagens para Escritorio: Urn Estudo Petrabrds 

■ Multimidia com o Clipper 

■ Interfaces Grdficas 

• Os Caminhos da Cor 



AUTOMACAO f INTELIGENCIA ARTIFICIAL 



■ Engenharia do Conhedmento 

. Construgao de Bases de Conhedmento como a Engenharia do Conhedmento 

■ Automagao de Escritorio em Ambiente aiente/Servidor no AS/400 

■ Automagao de Escritorios com Sistemas HeterogSneos 



FICHA DE I NSC Rig AO 







Segmento Gerencial Tecnico, 

21 horas de tecnologia 
Escolha um semindrio e 
assista a muifas palestras 

1 LJ Abrangencia e evolugao da Familia 
Windows 

□ Plalaformas Operocionais: OS/2 

□ Unix a Radas em Sistemas Abertos 
Q Solugoes para Redes Corporativas 
Q Multimidia: A Realidade de Uma 

Nova Era 

6 □ Tecnologias Emergentes na 

Automagao de Proces. de Negdcios 

7 Q DBASE Windows: Orientagao ao 

1° Seminario Corporativo BYTE 
Evento Espedal - 7 horas de teconj 
Especialmente direcionado 
para executives e empresdrios 

Q O Futuro do Processamento da 
Informagao Corporativa 




Segmento Usudrio Especializado 
7 horas de tecnologia JW/ k, 
Escolha um semindrio 
na drea indicada Tjwjffi 

Q ELS e CIS na Empresa Brasi^^o^ 

□ GIS na Administragoo Publico 

□ Informdtica na Medicino 

Q Automa^do Comercial e o Uso do 
Cddigo de Barras/Multimidia 

□ Ensino da Informdtica no Brasil 
Q Macmundo 

Envie sue insaigoo, junto com o pagomento para 
FEWASOfT Ftiras C oni er dai t Ltda. 

Ay. Osmar Cunha, 251 - CEP 88015-100 
Florianipolis - SC - Deplo. de Congresses. 

Pobx (0482) 24.4305 - Fax 23.5249 ou Pelo 
Telemarketing (Oil) 822.4308 
FUSaoPado-M*®ll)815.4011 Fax212.0381 
Hd Rb de Janeiro - TelFar ®2 1 ) 240.51 16 



NOME 

EMPRESA_ 

CGC 

FONE 



CEP 



FAX 



CARGO 



END. COMERCIAL_ 
CIDADE 



FORMA DE PAGAMENTO 



Banco_ 

CR$ 



_ a 9-_ 
igual a 



Cheque n° 

URV do dia 



nominal 6 FENASOFT FEIRAS COMERCIAIS LTDA. 
Cartao n° validade 



J / 



Assinatura 



20 % 

ato 31/05/94 



IO% 

ate 30/06/94 



20 % SodosdaASSESPRO, 



ate 30/06/94 



ABES, SUCESU, EAN 
eAUTOMATCA 



Promogao e realizogao 

iFlF<znq>oFt 

AHJ HMK COUMflOMS LTDA. 



Apoio 



BVTE 
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DO WHILE .T. 
w_bytes = 

FWRITE ( deatino , buffer , bloc ) 

IF w_bytes ! = bloc 
DO ALERTA 
IF repete 

repete = .F. 

LOOP 
ENDIF 
ENDIF 
IF cancela 
RETURN 
ENDIF 
EXIT 
ENDDO 

f_aize = f_size - 4096 
gravado = gravado + w_bytes 
DO R_BARRA 
IF f_size<l 
EXIT 
ENDIF 
ENDDO 

RETURN 

PROCEDURE R_BARRA 

^ * 



* Rotina que mostra o andamento da 
gravacao na tela atraves de barras * ^ 

col_bar = lNT(gravado/passo) +1 
SETCOLOR ( xcor2 ) 

@ 10,10 SAY REPLIC (CHR ( 177 ) , col_bar ) 
SETCOLOR (xcorl) 

RETURN 

PROCEDURE OPEN_CTL 

^ * 



* Rotina que abre oa arquivoa de controle 

de cada disquete * 

^ * 



tam_ctl = FSEEK( fonte, 0,2) 

IF tam_ctl <1 

HENS ( ' Erro no acesso ao arquivo fonte. 
Tecle algo..') 

cancela = .T. 

RETURN 

ENDIF 

FSEEK ( fonte, 0,0) 
buffer = SPACE ( tam_ctl ) 

DO WHILE .T. 

r_bytea = FREAD ( fonte, ©buffer , tam_ctl ) 
IF r_bytes 1= tam_ctl 
DO ALERTA 
IF repete 

repete = . F . 

LOOP 
ENDIF 
ENDIF 
EXIT 
ENDDO 
IF cancela 
RETURN 
ENDIF 




FCLOSE( fonte) 



disk_ctl 

dat_ctl 

hor_ctl 

fra_ctl 

fra_ctll 

last_ctl 

arq_ctl 



SUBSTR ( buf f er , 1 , 2 ) 

SUBSTR (buffer, 3, 6) 

SUBSTR ( buf f er , 9 , 6 ) 

SUBSTR (buffer, 15,1) 

SUBSTR (buf for, 16,1) 

SUBSTR (buffer, 17,1) 

SUBSTR (buffer, 18, (tam_ctl-17) ) 



* Programs BX - Backup p/ Arquivoa .DBF e 

• DBT * „ „ 

* Deaenvolvimento : Valmir menegaz de Souza 

* 

* Florianopolia - SC 



* Arquivo: BK3.PRG - Eacolhe tipo de drive 
para gravar oa arquivoB * 



10/04/94 



DO WHILE .T. 

mp2 = bk_meml+l 
& 10,26 TO 13,34 
0 11,27 PROMPT 'Drive A' 
e 12,27 PROMPT 'Drive B' 

MENU TO mp2 
DO CASE 

CASE mp2 = 0 

0 10,26 CLEAR TO 13,34 
EXIT 

CASE mp2 = 1 
bk_meml = 0 
0 6,67 SAY 'A' 

CASE mp2 = 2 
bk_meml = 1 
0 6,67 SAY 'B' 

ENDCASE 

0 10,26 CLEAR TO 13,34 
EXIT 

ENDDO 



FUNCTION MENS 
PARAMETERS conteudo 
PRIVATE tabulacao,corm 
conn = SETCOLOR (xcorl) 
tabulacao = ( 70 - LEN ( conteudo )) /2 
0 20, 10+tabulacao SAY conteudo 
TONE (1000,5) 

INKEY ( 0 ) 

0 20,10 CLEAR TO 20,78 
SETCOLOR (corm) 

RETURN ( .T. ) 



FUNCTION CONFIRMA 
PARAMETERS mens a 
PRIVATE tabulacao , core , an 
core = SETCOLOR (xcorl) 
tabulacao = (70 - LEN(mensa) ) /2 
0 20, 10+tabulacao SAY menaa 
an = 'S' 

TONE (10 00,1) 

0 20, COLO GET an PICT '!' VALID ( sn$ ' S A N' ) 
READ 

IF LASTKEY ( ) =27 
an = 'N' 

ENDIF 

0 20,10 CLEAR TO 20,78 
SETCOLOR (core) 

RETURN ( an) 



RETURN 
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LINHA 95 DOS PRODUTOS 



Se o seu servigo esta complicado, 
cheio de burocracia e com 
montanhas de papel, nao se 
desespere. 

A estrategia tem a sua solugao. 
Oferecemos programas produtos 
que adaptamos k sua empresa, 
para resolver o seu problema e 
acabar com a sua "dor-de-cabega". 



Se desejar, tambem oferecemos 
produtos sob-medida para sua 
empresa, desenvolvidos no menor 
tempo possfvel. 

Experimente e comprove!! Faga 
voce tambem uso das mordomias 
da estrategia. Test drive" gratuito, 
instalagao, treinamento, "hot line", 
enfim tudo aquilo que voce sempre imaginou que ia receber 
quando comprasse um software. 

Adote a melhor estrategia, solicite a visita de um 
representante tecnico ou venha nos fazer uma visita. 

Na linha.de programas produtos temos os "genericos" e os 
"especfficos". Os "genericos" sao oferecidos nas versoes 
"light", normal, multi e super. Os recursos disponfveis variam 
de acordo com a versao, sendo que a versao super 6 a mais 
completa, tendo caracteristicas multi-empresa e 
multi-usuario. 

Os nossos genericos sao: 

Caixa 

Sistema de emissao de cheques em 
microcomputador, e a forma mais 
repida e segura de preenche-los e 
assina-los. 

Contas a Pagar 

Pode ser integrado ao CAIXA. O 
CPAG controla as despesas classificando-as e agrupando-as 
contabilmente e gerencialmente segundo centros de custo e 
tipos de despesa. 
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Conta 

A contabilidade descomplicada e simples de usar. Permite 
um piano de contas com at6 6 niveis. 

Os nossos especfficos sao: 

Controle de Operagoes de C&mbio 

Este destina-se aos usuarios que desejem informatizar as 
suas atjvidades de Cambio, beneficiando-se assim da rapidez 
e flexibilidade advindas do uso do microcomputador. 

Chef 

Controle de Custos Refeigoes 
destina-se a restaurantes e empresas 
' fornecedoras de refeigoes que desejam 
ri ter um controle sobre a rentabilidade de 
^ cac * a P rat0 produzido e servido. 

Onibus 

E um software para empresas que operam com onibus de 
turismo. Ele controla as reservas e as excursoes, emitindo 
listagens de pick-up, estatfstica de vendas, relatorios de 
servigos para cobranga dos agentes, bem como respectivas 
comissoes e inumeras outras informagoes. 

Mago 

& o sistema de controle de gado 
leiteiro. Gerencia as atividades 
cotidianas das granjas leiteiras. Avalia 
o desempenho dos animais sob 
aspectos reprodutivos e zootecnicos, 
individualmente ou em conjunto. 

Mantem um cadastro dos animais, 
trata das tarefas relativas k produgao 
de leite, cuida das atividades reprodutivas: cios, diagnostics 
de prenhez, tratamentos pr6-parto, inseminagoes e 
coberturas. 

Sica 

Controla a carteira de agoes de um investidor. Todas as 
operagoes sao langados e as despesas de corretagem sao 
apropriadas ao prego das agoes. A carteira e avaliada 
tambdm em UFIR e o resultado das operagoes e apurado de 
forma sistematica para a declaragao mensal do Imposto de 
Renda. 






Cadastro 

Programa para controle de 
fornecedores e clientes, permite a 
emissao de etiquetas 
auto-adesivas para 

enderegamento postal bem como 
a impressao individual de 
envelopes persdnalizados e 
subscritos. 
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E para finalizar oferecemos o nosso ja 
consagrado Papel Timbrado. Ele e o 
software que timbra o papel na sua 
impressora, nos relatorios produzidos 
por qualquer programa. E pratico e util. 



av pres vargas 962/414 - rio - 20071-002 - tel.: 263-4386 




PROGRAMA 



Nao perca esta chance, a sorte esta a solta... 



Sorte Grande 



Mlero: PC XT/AT 
Mem6ria: 512 Kbytes 
Video: CG A/EG A/VGA 
Unguagem: Turbo Basic 
Requisites: Impressora 



Alvaro Vieira Arcovende Neto 



Este programa destina-se ao sorteio de apostas 
para a SENA e LOTO, podendo imprimir e gravar o resultado 
dos sorteios. 

Para visualizagao ou impressao do conteOdo de um 
arquivo gravado em disco, com as apostas, use qualquer 
editor de textos, ou o comando TYPE do MS-DOS (TYPE 
<aiquivo> >PRN, para imprimir). 0 funcionamento do restante 
do programa e bastante simples, dispensando explicagoes. 

Finalizando, desejo BOA SORTE a todos os que 
foremfazer uso deste programa (espero os futures milionarios 
nao esquegam o pobre autor do mesmo). 

Alvaro VIEIRA ARCOVERDENETO usa um PC AT/386. £ autodidata 
em Basic e programa em dBase e Cipper. 



SORTE .BAS 



' Programa : SORTS Versao 1 . 0 
' Autor : Alvaro Vieira Arcoverde Neto 
' Data : Janeiro de 1994 

' Linguagem: Turbo Basic 
KEY OFF: COLOR 1,1:CLS 
COLOR 9,3 
LOCATE 2,1 
PRINT 

STRING$ (36,32); "SORTE" ; STRINQ$ (30,32); "Ver . 

1.0 " 

LOCATE 23,2 

PRINT STRING$ (16,32) ;"(C) Copyright 1994 
by Alvaro V. Arcoverde 
Neto" ; STRING$ (16,32) 

MenuPrincipal : 

COLOR 0,7 
LOCATE 5,6 
PRINT 

CHR$ (201) ; STRING$ (42,205) ;CHR$(187) 

LOCATE 11,6 
PRINT 

CHR$ (200 ) ; STRING$ (42,205) ;CHR$(188) 

FOR A=6 TO 10 
COLOR 7,7 

LOCATE A, 7 : PRINT STRING$ (42 , 219 ) 

COLOR 0,7 



LOCATE A, 6 SPRINT CHR$(186) 

LOCATE A, 49 SPRINT CHR$(186) 

NEXT 

COLOR 9,3 
LOCATE 5,19 

PRINT " Menu Principal " 

COLOR 8,7 
LOCATE 7,8 

PRINT "1-"; STRING$ (13,46) ;" Realizar 
sorteio da ena" 

LOCATE 8,8 

PRINT "2-";STRING$ (13,46);" Realizar 
sorteio da oto" 

LOCATE 9,8 

PRINT "3-";STRING$ (19,46) ;" inalizar 
Programa" 

COLOR 9,7 

LOCATE 7,44 SPRINT "S"; 

LOCATE 8,44 SPRINT "L"; 

LOCATE 9, 30 SPRINT "F"; 

MenuMensagem : 

COLOR 0,7 
LOCATE 5,51 
PRINT 

CHR$ (218); STRING$ (22,196); CHR$ (191) 
LOCATE 11,51 
PRINT 

CHR$ ( 192 ) ; STRING$ (22,196); CHR$ (217) 

FOR B=6 TO 10 
COLOR 7,7 

LOCATE B, 52 sPRINT STRING$ (22, 219) 
COLOR 0,7 

LOCATE B, 51 sPRINT CHR$(179) 

LOCATE B, 74 sPRINT CHR$(179) 

NEXT 

COLOR 9,3 
LOCATE 5,58 
PRINT " Mensagem " 

COLOR 11,7 
LOCATE 7,56 

PRINT "Tecle a letra em"; 

LOCATE 8,55 

PRINT "destaque da opcao"; 

LOCATE 9,55 
PRINT "escolhida ..." 

MenuOpcao : 

COLOR 0,7 
LOCATE 13,6 
PRINT 

CHR$ (218); STRING$ (67,196); CHR$ { 191 ) 
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LOCATE 21,6 
FOR^C^lJ^^ ( 192 ) '' STRING $ (67,196); CHR$ (217) 
COLOR 7,7 

LOCATE C, 7 SPRINT STRING$ ( 67, 2 19 ) 

COLOR 0,7 

LOCATE C , 6 : PRINT CHR$(179) 

LOCATE C, 74 SPRINT CHR$(179) 

NEXT 

COLOR 9,3 
LOCATE 13,36 
PRINT " Opcoes "; 

Opcaol: 

A$=INKEY$ 

IF A$="S" OR A$="s" THEN 
VARs51:OP3%=6 sOOTO Opcao2 

IF A$="L" OR A$="l" THEN VARs 100s QOTO 
Opcao2 

IF A$="F" OR A$="f" THEN Finalizar 
GOTO Opcaol 
Opcao2 s 

GO SUB LimpaMensagem 
COLOR 11,7 
LOCATE 7,55 

PRINT "Digits aua opcao"; 

LOCATE 8,55 

PRINT "a tecle <ENTER>." ; 

COLOR 8,7 
LOCATE 15,8 

PRINT "Entre com o numero de cartoes (1- 
300 ) STRING$ (21,46) [ ]» 

LOCATE 15,69 
COLOR 1,7 
INPUT ,OP2% 

IF 0P2%<1 OR OP2%>300 THEN Opcao2 
Opcao3 s 

IF VAR=51 THEN 0peao4 



COLOR 8,7 
LOCATE 16,8 

PRINT "Digits o numero de dezenas por 
cartao (6-10)";STRING$(16,46) [ ]" 

LOCATE 16,70 
COLOR 1,7 
INPUT ,OP3% 

IF OP3%<6 OR OP3%>10 THEN Opcao3 
Opcao4 s 
COLOR 8,7 
LOCATE 17,8 

PRINT "Dejesa gravar resultado do sorteio 
am disco (S/N) STRING$ (11, 46) ; " [ 1" 
LOCATE 17,71 
COLOR 1,7 
INPUT , OP4$ 

IF OP4$="S" OR OP4$="s" THEN Opcao5 
IF OP4 $="N" OR OP4$="n" THEN Opcao6 
GOTO Opcao4 
Opcao5 s 
COLOR 8,7 
LOCATE 18,8 

PRINT "Entre com o nome do arquivo (cam 
extensao ) " ; STRING$ (8,46) ; " [ 1 » 

LOCATE 18,60 
COLOR 1,7 
INPUT , OP5$ 

Opcao6 s 
COLOR 8,7 
LOCATE 19,8 

PRINT "Dejesa imprimir resultado do 
sorteio (S/N) ?";STRING$ (18,46) ; " [ ]" 
LOCATE 19,71 
COLOR 1,7 
INPUT , OP6$ 

IF OP6$o"S" AND OP6$o"s" AND OP6$<»"N" 
AND 0P6$<»"n" THEN Opcao6 



De uma chance ao sucesso 






/Micro 



Onde esti aquele super-fantdstico-incrfvel programa que voce fez? E aquela rotina maravilhosa? Estao 
guardados numa gaveta? Nmgudm, aldm de voce, conhece esse trabalho? 

procesl^ores^etc Un ^ a< ^ e ^ mostrar 0 9 uant0 voc ® sa be sobre inform^tica, programagao, linguagens, 

A revista Micro Sistemas 6 a unica publicagao nacional que abre espago para trabalho feitos no Brasil. Ela 
e o umco veiculo editorial que publica colaboragoes dos seus leitores. 

Esta 6 a principal razao do sucesso imbativel da revista, afinal, grande parte dos profissionais com proiegao 
nacion,ii neste mercado, foram ou ainda sao colaboradores da Micro Sistemas 

Entao, o que voce estd esperando para fazer parte deste time? 

COLABORAgOES: 

Voce pode mandar qualquer tipo de matdria (programas, artigos, cronicas, etc). Para que seu trabalho seia 
avaliado por nossa equipe 6 imprescindfvel que: 

- os textos, listagens, ilustragoes, desenhos, etc venham em disquete 5 1/4 padrao IBM PC- 

- os programas devem incluir a versao compilada e exemplos (se for o casoV 

- copia impressa do texto e das listagens; 

- autorizagao impressa e assinada, para a publicagao do material; 
curriculo do autor. 

- Envie p/ Enter Press Editora S/A - Rua Lourengo Ribeiro, 124-A - CEP 21050-510 - Rio de Janeiro - RJ 

O material enviado para a revista nao serd devolvido. Os autores das matdrias publicadas 
receberao uma assmatura anual de Micro Sistemas. F 






'mensagem 

GO SUB LimpaMensagem 
COLOR 11,7 
LOCATE 7,53 

PRINT "Tecle <ENTER> quando" ; 

LOCATE 8,53 

PRINT "estiver pronto ..." 

Espera: ! 

A$=INKEY$ 

IF A$=CHR$(13) THEN 
GOSUB LimpaMensagem 
COLOR 25,7 
LOCATE 8,57 
PRINT "Aguarde . . . " ; 

ELSE 

GOTO Espera 
END IF 
Sorteio: 

IF OP6$="S" OR OP6$="s" THEN 
LPRINT STRING$ (33,32) ; "SORTE Ver . 1.0" 
LPRINT STRING$ (15,32} ;"(C) Copyright 1994 
by Alvaro V. Arcoverde Neto" 

LPRINT : LPRINT "*** DEZENAS SORTEADAS 
* * * " : LPRINT 
END IF 

IF OP4$="S" OR OP4$="s" THEN 
OPEN "R", #1, OP5$ , (OP2%*50)+(OP3%*50) 

END IF 

FOR F%=1 TO 0P2% 

RANDOMIZE (TIMER) 

'se a impressao e gravacao estiverem 
lentas 

'para o seu micro, diminua o valor do 
contador X, 

'ou, el inline o laco (FOR. ♦ .NEXT) seguinte 
FOR X&=1 TO 15000 :NEXT 
100 : 

A=INT (RND*VAR) 

110 : 

B=INT (RND* VAR) 

IF B=A THEN 110 
120 : 

C=INT (RND* VAR) 

IF C=A OR C=B THEN 120 
130: 

D=INT (RND*VAR) 

IF D=A OR D=B OR D=C THEN 130 
140: 

E=INT (RND*VAR) 

IF E=A OR E=B OR E=C OR E=D THEN 140 
150: 

F=INT (RND*VAR) 

IF F=A OR F=B OR F=C OR F=D OR F=E THEN 
150 
160: 

IF OP3%>6 THEN 
G= INT ( RND* VAR ) 

IF G=A OR G=B OR G=C OR G=D OR G=E OR G=F 
THEN 160 
END IF 



170: 

IF OP3%>7 THEN 

H=INT (RND*VAR) „ „ _ 

IF H=A OR H=B OR H=C OR H=D OR H=E OR H=F 
OR H=G THEN 170 
END IF 
180: 

IF OP3%>8 THEN 
I=INT (RND* VAR) 

IF I=A OR I=B OR I=C OR I=D OR I=E OR I=F 
OR I=G OR I=H THEN 180 
END IF 
190: 

IF OP3%>9 THEN 
J=INT (RND* VAR) 

IF J=A OR J=B OR J=C OR J=D OR J=E OR J-F 
OR J=G OR J=H OR J=I THEN 190 
END IF 
Imprimindo: 

IF OP6$="S" OR OP6$="s" THEN 
IF OP3%<=6 THEN LPRINT F%; A;B;C;D;E;F 
IF OP3%=7 THEN LPRINT F%;"- 
";A;B;C;D;E;F;G 
IF OP3%=8 THEN LPRINT F %; "- 
";A;B;C;D;E;F;G;H 
IF OP3%=9 THEN LPRINT F%; "- 
";A;B;C;D;E;F;G;H;I 
IF OP3%=10 THEN LPRINT F%; 
";A;B;C;D;E;F;G;H;I; J 
END IF 
Gravando : 

IF OP4 $ = "S" OR OP4$="s" THEN 
IF OP3%<=6 THEN PRINT #1,F%;"- 
";A;B;C;D;E;F 

IF OP3%=7 THEN PRINT #1,F%;"~ 
";A;B;C;D;E;F;G 
IF OP3%=8 THEN PRINT #1,F%;"~ 
";A;B;C;D;E;F;G;H 
IF OP3%=9 THEN PRINT #1,F%;"- 
" ;A}B;C;D;E;F;G;H; I 
IF OP3%=10 THEN PRINT #1,F%;"- 
" ; A; B; C; D; E; F j G;H; I ; J 
END IF 
NEXT 

IF OP4 $="S" OR OP4 $="s" THEN PUT #1: CLOSE 
GOTO MenuPrincipal 
Finalizar : 

COLOR 7 , 0 : CLS : COLOR 15,1 
PRINT STRING$ (33, 32) ; "SORTE Ver. 

1.0"; STRING$ (33,32) 

SYSTEM 

Limpcdlensagem: 

BEEP 

FOR D=6 TO 10 
COLOR 7,7 
LOCATE D, 52 
PRINT STRING$ (22,219) 

NEXT 

RETURN 

END 






Bank Soft 
Informatica Ltda. 



Shareware, Jogos e Aplicativos para Micros PC/XT/AT. 

Pe^a ja seu catalogo gratuito pelo telefone : (011)293-7957. 

ou pela Caixa Postal : 14.181 - Cep : 02799-970. 

Nao Perea Tempo !!! Grande Promogao de Langamento : 

Discos: 360 Kb = US$ 1,20 - 1.2 Mb = US$ 1,60 - 1.4 Mb = US$ 2,20 (Dolar Comercial). 

E ainda na compra de cada 10 discos, gratis 1 cdpia de 360 Kb. ^ 
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Colorfuldemofrom 
Knowledge Adventure 

3-D DINOSAUR ADVENTURE 



ULTIMAS NOVIDADES 



RAPTOR 2B 

O melhor jogo espaclal ja criado para o PCI 

FIRE & ICE IB 

No estllo do "Sonic", Undo e fant&stico! 

XARGON IB 

Excelente aventura tipo "Prince of Persia”. 

MUTANT BATS OF DOOM IB 
Um game para os saudosos do "Galaga"! 
ZOOL IB 

Fantastico jogo no estilo do "Sonic"! 
DUKE NUKEM II IB 
Sensacional sequencia ao "Duke Nukem I"! 




CATACOMB ABYSS 

Um dos melhores "RPG". Todo em 3-D! *| | 



sensacoes dos CD-ROM 1 

Uma complete enciclopedia com fotos 



'<1013 e 1 " a.saufos uma das maiores £ ftj 
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- II 

sons e animates sobre dinossauros! 5 si! &&! 
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PAGE PLUS for WINDOWS 

Um dos nossos maiores "best-sellers"! 
Simplesmente o melhor sistema de 
desk-top publishing em shareware! ^ f 
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BIO MENACE 

Uma super aventura num fu ture sombrio! 1H 



LANDS OF LORE 

Uma grande chance para voce entrar no 
mundo dos "role-playing games"! ia 
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ELECTROBODY 

Um jogo super emocionante! Sua mis- 
s§o: combater diversos monstros! 1H 



OSCAR 

Similar ao "Sonic" dos video-games, 
Oscar 6 um excelente jogo de agao! \ 



KOMBATZONE 



QUICK MENU III 

A melhor maneira de arrumar o winchester! 'I | 



ATT 



CADA SI ■ R$ 5,00 
CAOA a = R$ 3,00 

Atengao: Todos os programas s3o 
gravados em disquetes de alta 
densidade, requerem monitor "VGA" e 
"winchester”. Todos os programas 
podem ser gravados em disquetes de 
3 1/2 ou 5 1/4, exceto pelo programs 
’3D Dinosaur Adventure”, que pode ser 
gravado somente em disquetes de 3 
1/2! O pedido mtnimo e de 3 (tres) 
disquetes. Para pedir pelo correio, envie 
vale-postal ou cheque nominal 3 
NEMESIS INFORMATICA LTDA. 
Caixa postal 4.S83 Cep 20.001-870 - 
Rio de Janeiro - RJ. Ou venha ao 
nosso "show-room” na Rua Sete de 
Setembro, 92 sala 1.203 - Centro 
Conhega o nosso sistema de vendas 
pelo telefone: TEL (021) 242-0348 ou 
FAX (021) 242-4760 Solicite nosso 
catalogo complete cheiode novidades! 




SANGO FIGHTER 

Mats violento que "Mortal Kombat"' 
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HOME DESIGN for WINDOWS 
A palavra final para plant as de arquitetura! 2H 
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BODY BLOWS 

Muito melhor que "Street Fighter 2"' 10 




ORGANIZER for WINDOWS 
A versSo shareware desta famosa agenda! *1 1 











ROTINAS 



Amplie sua biblioteca de rotinas em Pascal 



Rotinas para Turbo Pascal 



Micro: PC XT/AT 
Memdrla: 512 Kbytes 
Video: CGA/EGA/VGA 
Unguagem: Turbo Pascal 6.0 
Requisites: Nenhum 



Rafael Guimaraes De S& 



Apos ver o artigo de Gustavo Torquato da Silva (MS 135), 
percebi que muitos programadores de Pascal vez por outra 
necessitam de rotinas Qteis e praticas. Bern, revendo minha 
biblioteca de rotinas, encontrei algumas bem interessantes. 

DESCRJCAO DOS PROCEDIMENTOS E FUN^OES 

- Function Barra(Nome : String) : String; 

Se no final do PATH (Nome) nao existir a barra (\), a fungao 
ira retomar uma string com uma barra (\) no final. 

Exemplo: Writeln(Barra( G:\D0S’)); 

Ele irS retomar: C:\D0S\ 

Casoja exista a barra no final , ele simplismente retornarS 
o mesmo PATH inalterado. 

- Function Percent(xPar f xTot:Real):String; 

Esta fungao ira retomar em uma string (no formato, por 
exemplo: 10 %) da porcentagem de xPar para xTot. 
Exemplo: Writeln(Percent(5,10)); 

Ele irci retomar: 50 % 

- Function NomeApenas(Arqulvo : String) : String; 

Esta fungao irS retornar o nome do Arquivo sem o PATH. 
Exemplo: Writeln(NomeApenas( 'C:\D0S\UTILS\D0SKEY 
-EXE')); 

Ele ir£» retornar: DOSKEY.EXE 

- Procedure CursoiOff; 

Esta procedure ira fazer o cursor desaparecer da tela (ira 
apagar). 

- Procedure CursoiOn; 

Esta procedure ira fazer o cursor reaparecer na tela. 

- Procedure CopyFlle(ArqEnt^rqSal:String); 

Esta procedure ira copiar um arquivo (ArqEnt) para (ArqSai), 
o arquivo pode ser de qualquer tipo. Casoja exista o arquivo 
de destino (ArqSai) ele sera apagado. 

Exemplo: CopyFile( G:\C0MMAND.C0M’,’ C:\N0V0.C0M’): 



• Function Lower(s:Strlng):String; 

Esta fungao retorna a String s em caracteres mi nOsculos. Os 
caracteres que ja estiverem em forma minOscula e os que 
forem impossiveis de transformar (ntimeros por exemplo) 
serao mantidos. 

Exemplo: Writeln(Lower( ‘ABCDEFGH’)); 

Ele ira retomar: abcdefgh 

- Function Upper(s:String):String; 

Esta fungao retorna a String s em caracteres maiusculos. Os 
caracteres que ja estiverem em forma maiOscula e os que 
forem impossiveis de transformar (nCimeros por exemplo) 
serao mantidos. 

Exemplo: Writeln(Upper( ‘ABCDEFGH’)); 

Ele ira retomar: ABCDEFGH 

- Function AutoCap(Strl : String) : String; 

Esta fungao a muito interessante. Ela ira retomar uma String 
em forma "Capitalizada ” , ou seja, com os primeiros caracteres 
maiOsculos e os demais minOsculos. 

Exemplo: Writeln(AutoCap( “RAFAEL guimaraes DE SA’); 

Ele ira retomar: Rafael Guimaraes De Sa 

- Procedure WriteXY(X,Y:lnteger;Str:String); 

Esta procedure ira economizar algumas linhas em seus 
programas. Ela substitui os sequintes comandos: 
GotoXY(15,10); 

Writeln( “Rafael Guimaraes De Sa“); 

Em vez de voce digitar tudo isso, voce apenas ira fazer o 
sequinte: WriteXY(15, 10, “Rafael Guimaraes De Sa’); 

Ele ira retomar na linha 10 e na coluna 15 a string: Rafael 
Guimaraes De Sa 

As rotinas podem ser usadas individualmente, formando 
ou juntadas em uma Unit. 

jjj RAFAEL GUIMARAES DE SA estuda na oitava sene do 
■g primeirograu, no Cotegio Milton Campos, em Belo Horizonte. 
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Function Barra (Nome : String) : String; 
Begin 

If Copy (Nome, Length (Nome) , 1) <> ' \ ' Then 
Nome : eNome-f ' \ ; 

Barra: -Nome; 

End; 

Function Percent (xPar,xTot: Real) : String; 
Function StrEsp (Sz: Integer ;Xz: Byte) sString; 
Var Lz : String; 

Begin 

Sz :=Abs (sz) ; 

Str (Sz,Lz) ; 

While Length ( Lz ) <xz do Insert(' ',Lz,l); 
StrEsp : = Lz; 

End; 

Var 

xRetl : Real; 
xRet2 : String; 

Begin 

If xtot = 0 then Begin 
xRetl : s 0; 
xRet2 := ' 0 %’ ; End 

Else Begin 

xRetl := (xPar/xTot)*100; 
xRet2 := StrEsp (Round (xRetl) , 3 ) + ' %’ ; 
End; 

Percent xRet2; 

End; 

Function NomeApenas (Arquivo : String) : 
String; 

Var 

Str2,Strl : String; 

Cntl : Integer; 



Begin 

Strl : =Arquivo; 

For Cntl : ^Length ( Strl ) DownTo 
(Length(Strl) -12 ) Do Begin 

If Copy (Strl, Cntl, 1) \ ' Then Begin 
NomeApenas : =Copy (Strl, Cnt 1+1, 13) ; 
Cntl :=Length( Strl) -12; 

End; 

End; 

End; 

Procedure CursorOff; 

Var 

Regs : Registers; 

Begin 

Regs. ah : = 1; 

Regs.ch : = 1; 

Regs. cl : = 0; 

Intr ($10, Regs) ; 

End; 

Procedure CursorOn; 

Var 

Regs : Registers; 

Begin 

Regs. ah : = 1; 

Regs.ch : = 6; 

Regs. cl := 7; 

Intr ($10, Regs) ; 

End; 

Procedure CopyFile (ArqEnt, ArqSai : String) ; 
var 

FromF, ToF: file; 

NumRead, NumWritten: Word; 



5dleDRD05 



CONSULT6RIO MEDICO - Cadastro do paciontes, consult as, roconsult as, 
hi*t6ricos, intemag6es, msdicamantos, etc... R$ 12,5 

CONTROLE DE ESTOQUE - Completo com diversos relat6rios gerenciais. 

R $ 25,00 

CONTROLE DE ANDAMENTO DE OBRAS - (para const rut oras profissionais/ 
liberals) Controle completo com cadastro do dientes/projetos/obras. Controle do 
S -.55 ho^o^no*, os voncimontos, os recebimentos e data dos mosmos 
R$ 25,00 

CONTROLE DE ANDAMENTO DE PROCESSOS - (para advogados)) cadastro 
de autor o r6u, causa, comarca, audi&ndas e leiides, pagamentos, and am onto no 
Forum. RS 25,00 

FOLHA DE PAGAMENTO MENSAL - Cadastro de empregados, tabola IR/INSS, 
calcula vale transport©, insalubridado, pericutosidado, etc... RS 35,00 

USTA DE PREQQS - (completa) calcula prego de venda (preco custo - descontos 
+ impost os + fret© + margem de lucro), aumento autombtico etc... RS ?5,00 

LfVI^S FISCAIS - Controle de ontradas e saidas, com apuragao de I CMS/ 1 PI/ 
GIAO, it© tod os os relat6rios oficiais entre d at as (necessita impressora com 1 32 
colunas). RS 30,00 

SISTEMA DE CAlCULO ESTRUTURAL - Viaas retang ulares, lajes, pilares 
owntroaos, sapatas, escadas e treligas. Atengao: Osistoma naotraga os diagram as 
K5 25,00 

CONTROLE DE BIBUOTECA - Controle completo de biblioteca. cadastro livros, 
revista, etc. RS 12,50 

MALA DtRETA -Com cadastro porbreadeatuagbo/servigo. Imprimeetiquetaspor 
enderefamento selectonado por qualquer canto do arquivo. RS 12,50 

HAMRADJO - Para rodioamadores. Controle completo de QSOs com cadastro de 
S*??*/*" com quern vocA falou. Emite etiquetas para envio decart 6es de QSL's 
RS 12,50 

HOMEVI DEO-Uwo-io do* guiat impressos. Controle voci mesmos os videos 
ossistidos. RS 12,50 



Fone/FAX : (054) 381-1752 
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Voce manda para a Enter Press Editora 
cheque nominal no valor da assinatura 
que voce deseja, e recede em sua casa, 
durante urn ou dois anos, exemplares da 
revista Micro Sistemas. 



[ PR0M0QA0 




1 ano (12 meses) 


R$ 45,00 


2 anos (24 meses) 


R$ 90,00 



ENTER PRESS EDITORA Ltda 

R. Lourengo Ribeiro, 124 A 
21050-510 - Rio de Janeiro - RJ 
TEL: (021) 230-4784 
FAX: (021) 242-9981 







buf: array [1 .. 2048] of Char; 
begin 

Assign (FromF, ArqEnt) j 
Reset (FromF, 1); 

Assign (ToF.ArqSai) ; 

Rewrite(ToF, 1); 
repeat 

BlockRead (FromF, buf , SizeOf (buf) ,NumRead) ; 

BlockWrite(ToF,buf ,NumRead,NumWritten) ; 
until (NumRead = 0) or (NumWritten <> 
NumRead) ; 

Close (FromF) ; 

Close (ToF) ; 
end; 

Function Lower (s: String) : String; 

Var 

x : Byte; 

Begin 

For x:=l to Length (s) do Begin 

If Ord(S [x] ) in [65.. 90] Then S [x] := 

Chr(0rd(s[x] )+32) ; 

End; 

Lower : = S ; 

End; 

Function Upper (s:String) : String; 

Var 

x : Byte ; 

Begin 

If So’ ' Then For x:=l to Length(s) do 
S [x] : =Upcase ( s [x] ) ; 

Upper :=s; 

End; 

Function AutoCap (Strl : String) : String; 



Str : Array[l. .201] of String[l]; 

Cntl : Integer; 

Cp : String; 

Begin 

Strl : =Lower ( Str 1 ) ; 

Cp ; = ' ' ; 

If Length(Strl) >200 Then Halt; 

For Cntl:=l to Length (Strl) do Begin 
Str [Cntl] :=Copy( Strl, Cntl, 1) ; 

End; 

Str [1] : =Upper (Str [1] ) ; 

For Cntl : =2 to Length(Strl) +1 do Begin 
If Str [Cntl] =' ' Then 
Str [Cntl+1] : =Upper (Str [Cntl+1] ) ; 

End; 

For Cntl : =1 to Length (Strl) do 
Cp : =Cp+Str [Cntl] ; 

Autocap : =Cp; 

End; 

Procedure WriteXY(X,Y: Integer; Str: String) ; 
Begin 

GotoXY (X, Y) ; 

Writeln(Str) ; 

End; 




Possuimos um acervo com mais de 40.000 programas para toda a linha IBM-PC. Temos jogos (Apogee, Epic Megagames, 
etc..), utilitarios, anti-virus atualizados (scan, f-prot, etc...). N3o trabalhamos com pirataria e sim com a nata do shareware 
mundial. Solicite nosso cataiogo gratuito, de qualquer parte do Brasil. Despachamos seu pedido no m3ximo em 24 horas. 



O mais completo cadastro de clientes do mercado. Possui grupo de 
classificaf&o, data de inclusilo, codigo (opcional), nome do cliente, 2 nomes 
de contato, referenda de conceito, data de aniversario, 4 telefones com 
descrifSo para cada um, 2 telefones de fax, endere(;o, bairro, cidade, estado, 
cep, inscrifio estadual ou carteira de identidade, CGC ou CIC, controle de 
envio das cartas padroes com tipo e data de envio, campo de observafSes 
com tamanho m&ximo flexivel de 65.534 caracteres. Inclui cadastro de 
cartas padrOes com editor de texto integrado. Mala direta com possibildade 
de imprimir a etiqueta do remetente ao lado da etiqueta do destinatario. 
Grupos de classificaifSo para melhor separar os tipos de clientes. 

Cadastro dc Clientes 

Pre?o: 30 URVs 



Voce estd cansado de fazer contas, tentando saber onde vai parar o dinheiro 
todo mes ? Colegio das crianfas, alimentafilo, condommio.. 

Use o super pratico Si sterna de Despesas de Casa. Com ele 
voce saber a, para que despesas foram as suas receitas. Os 
lanyamentos s3o feitos em moeda nacional e convertidos 
para dolar. Possui Uunbem Contas a Pagar e Tabela de 



KPIk 



Despesas de Casa 



1 Prego: 30 URVs 




Sistema de C€P 

Cadastro oficial da ECT. Permite consulta para qualquer rua do Brasil. Dado o nome 
de uma rua, voce fica sabendo o bairro, cidade e cep de forma imediata. Se existirem 
mais de uma rua com o mesmo nome, serio todas apresentadas na tela. Modo de 
pesquisa por janelas, onde voce ve todo o arquivo somente com o uso das setas. 
POSSUIND O O CADASTRO DE CIJF.NTES E O CEP. AO DIGITAR UM ENDERECO 



rfiTiniTM i:mnJiiriai , ii f-i I pi j r.^ a ;t a| i 1 4V3 :r.wnm ajt«j 



BATRHO- A CIDADE E O CEP. 

10 pacotes diferentes: Preco por pacote: 30 URV’s 

(1: RJ), (2: Slo Paulo), (3: Goias e Brasilia), (4: Bahia, Piaui), (5: Ceara, Paraiba, Rio 
Grande do Norte), (6: Alagoas, Sergipe, Pernambuco), (7: Minas Gerais, Espirito 
Santo), (8: Mato Grosso, Mato Grosso do Sul), (9: Parana, Santa Catarina, Rio Grande 
do Sul), (10: Acre, Amazonas, Amapa, Maranh&o, Para, Ronddnia, Roraima, 
Tocantins) 

Pacote economico com todos os estados do Brasil: 100 URV's 



Star Lights BBS - Velocidades de 1.200 ^ 14.400 Bps 
Todo dia das 18:00 &s 09:30 Horas - (021)-255-7240 



a 



Pedidos pelo tel (021)-255-7240 

Stellar InformAtica Ltda ME - Caixa Postal 11767 - Cep 22022-970 - Rio de Janeiro - RJ 
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0 que era bom ficou 
ainda melhor! 



A PRO KIT acaba de lanpar a segunda versao do curso que esta 
fazendo o maior sucesso: Assembler para PC, sem sair de casa. 

0 curso de programapao foi planejado em 10 partes, prevendo uma 
durapSo de aproximadamente urn ano. Neste periodo o aluno per- 
manece em contato (por carta) com a equipe tecnica da PRO KIT, com 
o proposito de elucldar as duvidas. 

Cada parte e remetida ao aluno que, apos o estudo, devera devolver a 
PRO KIT urn pequeno teste. Este teste serve para identificar as 
possfveis areas ainda sem entendimento e servem ainda para 
preparar o aluno para os assuntos que ser§o tratados mais a frente. 
As lipdes so serSo remetidas apos o recebimento do teste (respon- 
dido, ou nSo). 

Para fazer o curso 6 preciso ter o conhecimento mihimo indispensavel 
na programapao em qualquer outra linguagem: bases numericas, 
memoria, RAM, ROM, bit, byte, compilapao, edipao de textos, etc. 0 
curso possui uma linha basics, cuja compreensSo n§o exige muita 
experifincia anterior. Dependendo do grau de dificuldade de cada 
aluno, a PRO KIT produz urn APENDICE especrfico, com elucidapoes 
complementares. 

As duvidas mais simples sSo respondidas juntamente com o envio das 
partes subsequentes. Todo o material necessario para a criapSo de 



programas em Assembler e fomecido pela PRO KIT, inclusive a 
biblioteca de rotinas especiais, usada nos programas produzidos pela 
nossa equipe tecnica. 

TOPICOS: 

• As principals instrupoes 

• 0 teclado e suas funpoes 

• 0 video em modo de alta resolupSo 

• Menus pulldown e comandos por tabelas 

• Entrada de dados e rotinas de input 

• ManipulapSo de arquivos 

• Uso e controle do mouse 

• A impressSo 

• Acesso irrestrito aos disquetes e HD 

• Rotinas genericas 



0 objetivo deste curso, unico no mercado brasileiro, nSo e apenas en- 
sinar o uso das instrupSes, mas principalmente a mecSnica, os tru- 
ques e macetes de se criar programas em Assembler. 0 curso e 
compativel com micros padrao IBM PC XT / 286 / 386 / 486. 

A PRO KIT coloca ainda a disposipSo dos programadores, que ja pos- 
suem conhecimentos de Assembler, tr§s discos contendo suas prin- 
cipals bibliotecas de rotinas. 



Autore orlentador: RENATO DEGIOVANI 



□ Assembler em 10 lip6es(CGA) R$ 60,00 Nome: 

□ Assembler em 10 lipdes (VGA) R$ 100,00 Enderepo: 

□ Biblioteca de rotinas para CGA R$ 30,00 CEP: 

□ Biblioteca de rotinas para VGA R$ 30,00 Data: 

□ Biblioteca Super VGA 256 cores R$ 30,00 Equipamento:. 



Iniciativa: 



pro k: 



. Cidade:. 



. Cheque: 



Envie cheque nominal para PRO KIT Informatics e Editors Ltda 
Caixa Postal 108.046 - Njter6i/RJ ■ CEP 24121-970 



ROTINAS 



Proteja o acesso aos dados 






Micro: PX XT/AT 
Memorla: 512 Kbytes 
Video: CGA/EGA/VGA 
Unguagem: Clipper 5.01 
Requisites: Wincheter 



Dirceu da Rosa Portela 



0 Sistema “SENHA” foi extraido de alguns sistemas que 
venho usando com varios clientes. Embora esteja deixando 
de fora outros controles de operadores, como por exemplo 
um usuario em duas estagoes da rede simultaneamente, 
mensagens, e outras situagdes. 0 que Ihes apresento 6 tao 
somente uma rotina para identrficagao dos operadores. 
Portanto pode e deve ser ampliado e melhorado. 

0 que me levou aescolhereste pequeno sistema foi ofato 
de que jd tive oportunidade de conhecer varios outros que 
nao permitem o uso das setas para esquerda e/ou o Back 
Space, ou seja, se errou a senha tern que comecar tudo de 
novo. Como poderao verificar no arquivo VE_SENHA.PRG 
coloquei uma rotina de recepgao de teclas propondo-me a 
evitar esse inconveniente. 

Diferentemente do artigo Criptografia, publicado na edigao 
de ndmero 135, nao uso o comando SET COLOR TO W/N,X 
podendo o usuario (e o curioso ao lado ver o que esta sendo 
digitado, sem que com isso sua senha seja revelada. Outro 
motk/o foi apresentar a maneira de armazenamento das 
senhas. Trata-se de um "calculo-so-de-ida”, pois e 
virtualmente impossivel descobrir a senha do usuario mesmo 
sabendo-se a formula para codificagao. Dessa forma a 
senha passa a ser de Gnica responsabilidade do usuario, 
ISENTANDO INCLUSIVE 0 PROGRAMADOR! 

Ao se cadastrar um novo usuario, sua senha sera seu 
proprio nome, ate que este a altere pelo sistema. Quando 
acontece de algum usuario "esquecer” sua senha, basta 
recadastra-io novamente, e sua senha voltara a ser seu 
proprio nome. Normalmente atribuo mveis de acesso aos 
usuarios evitando que qualquer um possa cadastrar novos 
usuarios e/ou excluHos. Neste caso inclut, no programa 
fonte, uma senha "IMEXfVEL”, somente para que o sistema 
possa ser incializado. Normalmente depois de criada a 
senha do principal usuario, compilo novamente o sistema 
sem a senha “IMEXfVEL”. 

Deve-se tambem usar um Arquivo Banco de Dados 
“NamPas.DBF”, o qual pode ser criado pela DBU ou pelo 



DBASE. A definigao deste arquivo e a seguinte: 



Campo 


Tipo 


Tamanho 


Decimals 


Usuario 


Character 


8 


0 


Autenti 


Numeric 


1 


10 



A senha “IMEXfVEL" do sistema 6: 



Nome: MESTREX A qual pode ser alterada no arquivo 
Senha: MASTER/ VE_SENHA.PRG 



§§§§ DIRCEU DA ROSA PORTELA e formado em Ciencias 
==l Economicas, pela PUC-RGS. £ autodidata em informadca. 





| ABERTURA.PRG ■ 


Programa : ABERTURA . PRG 




Programador 


: Dirceu da 


Rosa Portela 


LOCAL Hora, 


Mensagem, 


linA, 


LinB, 


ColA, ; 


ColB, 


Fesc, 


MyLin, 


K, 


J, 


cMyTela, 


Aviso 


SET CURSOR 


OFF 




Limpa ( ) 
SETCOLOR ( 


CorH ) 




linA 


= ColA 


: = 1 


LinB : 


= MAXROW () 


- 1 


ColB : 


= MAXCOL () 


- 1 


Fesc : 


= CHR ( 219 


) 


MyLin : 

() - 3 ) ) 


= REPLICATE 


( Fesc, ( MAXCOL 


9 23, 2 SAY MyLin 




FOR K 


= 2 


TO LinB 


9 K, 


2 SAY Fesc 




NEXT 






MyCol := SAVESCREEN ( 


2, 2, LinB, 2 ) 
LinB, ColB, MVCol ) 


RESTSCREEN 


( 2, ColB, 


FOR K 


= 1 


TO 10 


linA++ 
LinB - 






9 linA, 


2 SAY MyLin 


9 LinB, 


2 SAY MyLin 


FOR 


J = 1 


TO 
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ColA++ 

ColB— 

RESTSCREEN ( 2, ColA, ( MAXROW () 

- 1 ) , ColA, MyCol ) 

RESTSCREEN ( 2, ColB, ( MAXROW () 

- 1 ), ColB, MyCol ) 

NEXT 

TONE ( 90, 0.01 ) 

NEXT 

fZoomln ( 0.02 ) 

cMyTela := SAVESCREEN ( 11, 25, 13, 48 ) 
Hora :« VAL ( LEFT ( TIME 0,2)) 

SETCOLOR ( CorC ) 

SCROLL ( 11, 25, 13, 48, 0 ) 

8 11, 25 TO 13, 48 
SET ESCAPE OFF 

DO CASE 

CASE Hora > 18 

Mensagem : = "Boa Noite " 

CASE Hora > 11 

Mensagem := "Boa Tarde " 

CASE Hora > 3 

Mensagem : = "Bom Dla " 

OTHERWISE 

Mensagem : = "Boa Noite " 

ENDCASE 

8 12,27 SAY Mensagem + LTRIM ( UserName ) 

+ " !" 

TONE ( 200, 0.3 ) 

TONE ( 400, 0.1 ) 

TONE ( 300, 0.5 ) 

INKEY ( 2 ) 

TONE ( 400, 0.1 ) 

SETCOLOR ( CorH ) 

RESTSCREEN ( 11, 25, 13, 48, cMyTela ) 
fZoomOut ( 0.06 ) 

Aviso : = REPLICATE ( " ", MAXCOL 0-2 

linA : = 12 

LinB : b 13 



FOR K - 1 TO 

linA++ 

LinB — 

8 linA, 02 SAY Aviso 
8 LinB, 02 SAY Aviso 
TONE ( 90, 0.01 ) 

NEXT 

RETURN 

PROCEDURE fZoomln ( Tempo ) // 

Jane la ( 02, 02, 04, 04, Tempo ) 

Jane la ( 04, 05, 06, 09, Tempo ) 

J® 11 ®!® ( 05, 09, 08, 15, Tempo ) 

Jane la ( 07, 13, 10, 25, Tempo ) 

Janela ( 09, 15, 11, 35, Tempo ) 

RETURN 

PROCEDU RE fZoomOut ( T«»np<-» 



Janela ( 09, 15, 11, 35, Tempo ) 

Janela ( 07, 13, 10, 25, Tempo ) 

Janela ( 05, 09, 08, 15, Tempo ) 

Janela ( 04, 05, 06, 09, Tempo ) 

Janela ( 02, 02, 04, 04, Tempo ) 

RETURN 

PROCEDURE Janela ( TopLin, TopCol, 

BotLin, BotCol, Tempo ) // 

LOCAL cTela 

cTela := SAVESCREEN ( TopLin, TopCol, 
BotLin, BotCol ) 

SCROLL ( TopLin, TopCol, 

BotLin, BotCol, 0 ) 

INKEY ( Tempo 

) 

RESTSCREEN ( TopLin, TopCol, 

BotLin, BotCol, cTela ) 

RETURN 



MENU.PRG 



Programa: MENU.PRG 

Programador: Dirceu da Rosa Portela 
WHILE ( .T. ) 

READINSERT ( .F. ) 

Limpa ( ) 

SET SCOREBOARD OFF 

SET ESCAPE OFF 

SCROLL ( 02, 02, 04, 78, 0 ) 

8 02, 02 TO 04, 78 

8 03,04 PROMPT " Alterar Senha " 
MESSAGE "Alterar sua Senha" 

8 03,24 PROMPT " Incluir " MES- 

SAGE "Cadastrar um Novo Usuario" 

8 03,39 PROMPT " Excluir " MES- 

SAGE "Excluir um Usuario" 

8 03,54 PROMPT " Consultar " MES- 
SAGE "Consulta os Usuarios" 

8 03,70 PROMPT " Final * MES- 

SAGE "Finaliza o Sistema" 

MENU TO Opcao 

SET ESCAPE ON 

DO CASE 

CASE Opcao = 1 
DO Altera 
CASE Opcao = 2 
DO Inclui 
CASE Opcao = 3 
Cancela ( ) 

CASE Opcao = 4 

Consulta ( ) 

CASE Opcao = 5 

IF fConf () 

RETURN 




LIVRARIA 



CIENCIA NOVA 



C A - 



• CAP, 



Despachamos p/todo o Brasil 
Remessas feitas por reembolso Postal 



Av. Praslaente Vargas, 542/301 — 




END IF 



ENDCASE 

ENDDO 



PROCEDURE Consults // 

PRIVATE VsUserCamp [1], VsUserCabe [1], 
VsUserPict [1] 

VsUserCamp [1] := "Usuario" 

VsUserCabe [1] := "Usuario " 

VsUserPict [1] : = "" 

SETCOLOR ( CorG ) 

8 5, 27 TO 21, 43 DOUBLE 
GO TOP 

DBEDIT ( 6, 28, 20, 42, VsUserCamp, , 
VsUserPict, VsUserCabe, "!", 0, 0 ) 

RETURN 

PROCEDURE Cancels // 

LOCAL MyTela 
WHILE ( .T. ) 

SETCOLOR ( CorG ) 

MyTela := CabeTel ( "Exclusoes de 
Usuarios" ) 

MySelf := ALLTRIM ( UserName ) 
cNewUser := SPACE ( LEN ( Username 



8 10, 5 SAY "Nome do Usuario:" 

8 10, 23 GET cNewUser PICTURE "8!" 

READ 

IF LASTKEY () =27 
RETURN 

ENDIF 

cNewUser := FBrancos ( cNewUser } 

IF ALLTRIM ( cNewUser ) = MainUser 
.OR. cNewUser = MySelf 
fAvisa ( 4 ) 

TONE ( 300, 5 ) 

INKEY ( 0 ) 
f DesBox ( ) 

LOOP 

ENDIF 

IF 1DBSEEK ( cNewUser ) 

TONE ( 300, 5 ) 
fAvisa ( 1 ) 

INKEY ( 0 ) 

LOOP 

ENDIF 

IF ! fConf () 

LOOP 

ENDIF 

RESTORE SCREEN FROM MyTela 

DELETE 

ENDDO 



Programs : VE_SENHA . PRG 
Programador: Dirceu da Rosa Portela 
LOCAL M, A, S, T, E, ; 

R, Col, TecVolta, TecHome, PraCima, ; 

GBTSYS := {} 

PRIVATE nLTecla, Abandonou 

PUBLIC UserName, MainUser, MainPass, My Pass, PassTryed 

M := 77 

A := 65 // Artificio para 

qua a senha nao seja identificada 
S := 83 // pelo PCTOOLS ou 

NORTON no arquivo executavel 
T := 84 



E 


: = 69 






R 


: = 82 






MainUser 


:= CHR (M) + CHR (E) + CHR 


(S) 


+ 


CHR (T) + 


CHR (R) + CHR (E) // MESTRE 






MainPass 


:= CHR (M) + CHR (A) + CHR 


(S) 


+ 


CHR (T) + 


CHR (E) + CHR (R) //MASTER 






TecVolta 


:= CHR ( 8 ) + CHR ( 127 ) 


+ CHR 


( 19 ) + CHR ( 26 ) 






II 


Bk Space Ctrl Bk Space 




<- 


Ctrl <- 






TecHome 


:= CHR ( 1 ) + CHR ( 29. ) 






II 

SELECT 1 


Home Ctrl Home 






USE NAMPAS 






IF ! FILE 


( "NAMPAS. NTX" ) 






INDEX 


ON Usuario TO NAMPAS 






ENDIF 
SET INDEX 


TO NAMPAS 






UserName 


:= MyPass := cMyPass : 


= 




SPACE ( 8 


) 






PassTryed 


:= 1 






Abandonou 


:= ( .F. ) 






SET CURSOR ON 






SET COLOR 


TO 






TONE ( 950, 0.1 ) 






SETCOLOR 


( "W/N,W/N,N, ,W/N" ) 






SCROLL ( 


3, 06, 09, 44, 0 ) 






8 3,06 


TO 09,44 DOUBLE 






8 5,08 SAY "Seu Nome:" 

8 7,08 SAY "Sua Senha:" 






BEGIN SEQUENCE 






WHILE 


( -T. ) 

PraCima := ( .F. ) 








UserName := MyPass := SPACE 


( 


8 ) 


8 7, 20 SAY Mypass 








8 5, 20 GET UserName PICTURE 




"8!" 


READ 








IF LASTKEY () =27 








Abandonou : = ( . T . 

BREAK 


) 






ENDIF 








Rotina para recepcao das teclas 
da senha do usuario. */ 

Col := 20 

WHILE ( Col > 19 ) .AND. ( Col 

< 28 ) 

SETPOS ( 7, Col ) 
nLTecla := INKEY ( 0 ) 

IF nLTecla = 27 

Abandonou : = ( . T . ) 
BREAK 

ENDIF 

IF nLTecla = 13 
EXIT 

ENDIF 

IF nLTecla = 5 

PraCima := ( .T. ) 

8 7, 20 SAY SPACE ( 8 

) 

EXIT 

ENDIF 

IF CHR ( nLTecla ) $ 



TecVolta 



IF Col <= 20 
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Voce cminm enrcUutc? 



MONTE SEU PR6PRIO AT 286, 386 OU 486. 
APRENDA VARIAS DICAS DE COMO TIRAR UM MELHOR 
PROVEITO DOS RECURSOS DO SEU MICROCOMPUTADOR. 
Com os livros do Eng. LA£RCIO VASCONCELOS 




►COMO MONTAR, CONFIGURAR E EXPANDIR SEU AT 386/486 

o'SSf 0 * 530 Pouto - BO o™' A « E - e cultuba . 

* XT e AT 286, 386SX, 386DX e 486. Fortes, gabinetes, NO-BREAKS, estabUizadores, aterramento DRIVES rtf r a n de video a monttoma 
CGAHERCULES, EGA, VGA, e SUPER VGA. Places MULTI-I/OJOSA, UDC e IDEPL^r^^ 

C *g, H E - 080 *> memd ria ESTENDIDA e EXPANDIDA, SHADOW RAM. SETUP, STRAPS, WINCHESTER. , 

oo-processador aritntetico, instalagfio de MOUSE. MODEM/FAX, SCANNER, SOUND BLASTER, eta. ’ converB * > * 286 em 386 

' t 

IBM PC: DICAS E MACETES DE SOFTWARE VOL. 1 

Centenas de DICAS para uoc& usar melhor o seu PCHl 

ViU tal ^ J . f0fma?C ? S litei8 801x6 S0FTWARE 6,11 um Gnic° "vro. A cada pSgina 6 encontrada uma dica que pode ser imediatamerte aoHcada ao seu 

^eKabSidA 6 ^ dade deU8oEmais: C6 P tes «te*q!etes pcotegidos. uso * u£m6RIA 

bbibNU iU A. E XPANDIDA. EMS XMS. HMA, UMB, compactadores de arquivos, recuperagao de discos formatados e arquivos apagados programas grtflcos 

P"*** 8 ° flWare ' leste * CPU - ^ WINCHESTER e da place devfdeo, comandos uteis do DOS, co^^i3wforSSJl 
arquivos AUTOEXEC.BAT e CONFIG.SYS. E mats dezenas de outras dlcas. 



?IBM PC: DICAS E MACETES DE SOFTWARE VOL. 2 

^ r ^ nc ^° mais outros dicas muito dteis que o ajudarao a esclarecer suas duuidas 

FiqU ® P* * sntro f" novWa des do MS-DOS 6, saiba como aceterar o desempenho do 
_^ :i- C triM L . T ER 'J te P baS.?.? 0 CD ‘ ROM ' U8ar 8 mem6ria ' recuperar arquivos apagados, mshorar os arquivos BATCH, dupifcar a oapanidade do winchester 
^^^“gSSS’JuikteS ' Pr ° 9ram3S 3l * ,kX *' anima 5 0e8 9 rtficas ' comunicagao de dados, ANTI-VlRUS, acertuag^^iXeia^rd^L e macetes e 



A 



SOFTWARE DE DOMINIO PUBLICO E SHAREWARE 

N °^ SO CATALOGO GRATUITAMENTE E VEJA AS VANTAGENS DOS NOSSOS PROGRAMAS * 

10 Sflo todos compactados com o popular compactador PKZIP, o que reduz o tamanho e o custo para os 

2) S&> fbmecktos em disquetes novos e de BOA QUALIDADE. 

3) Ste todos acompanhados de um arquivo LAERCIO.DOC que traz as instrugOes para a instategfe e sua imediata n«ii™r«« 

4) Sflo todos testados e homologados pela nossa equips tecnica. 

da 120 KB, lids eobnmw por 



Indique os livros desejados 




Recorte, preencha e envie para: 


( ) Estou enviando cheque nominal ao autor, Uterdo Vasconcelos 
( ) Desejo receber o catelogo de programas 




La6rcio Vasconcelos 

CAIXA POSTAL 4391, CEP 20.001-970 Rio de Janeiro, RJ 


Pregos em REAL: 

COMO MONTAR, CONFIGURAR E EXPANDIR SEU AT 386/486 ( ) 27,50 REAIS 
IBM PC: DICAS E MACETES DE SOFTWARE VOL 1 ( ) 23,75 REAIS 

IBM PC: DICAS E MACETES DE SOFTWARE VOL. 2 ( ) 27,50 REAIS 


Nome: 

Endereco: 

Cidade: CEP- 

Telefone: 


S VC - LAERCH IMMnMRBI nc maw ■ Tna . . » 




Para sua seguranga, envie em carta reglstrada. 



Antecipe-se 




Col 

LOOP 

ENDIF 

Col— 

MyPass 

Mypass, ( Col - 19 ), 1, " " 



STUFF ( 



9 7, Col SAY - " 

LOOP 

ENDIF 

IF CHR ( nLTecla ) $ TecHome 
MyPass := SPACE ( 8 ) 
Col s= 20 

9 7, 20 SAY Mypass 

LOOP 

ENDIF 

MyPass : = STUFF ( 

Mypass, ( Col - 19 ) , 1, CHR ( nLTecla ) ) 
0 7, Col SAY "#" 

Col++ 

ENDDO 

IF PraClma 
LOOP 

ENDIF 

MyPass s= UPPER ( MyPass ) 

IF IfChkPass ( 0MyPass, ( . T. ) ) 
LOOP 

ENDIF 

EXIT 

ENDDO 

END 

SETCOLOR ( CordoDos ) 

RESTORE SCREEN FROM TeladoDos 
IF Abandonou 

SETPOS ( LindoDos, 79 ) 

QUIT 

ENDIF 

RETURN 




Pr ogr ana : SENHA . PRG 
ROTINA PRINCIPAL 

Programador : Dirceu da Rosa Portela 
SET WRAP ON 
SET EXACT ON 
SET DELETE ON 

SET MESSAGE TO ( MAXROW () - 1 ) CENTER 
SET EXCLUSIVE ON 

CordoDOS := SETCOLOR () 

LindoDos : = ROW () 

SAVE SCREEN TO TeladoDOS 



PUBLIC VtAviso [4] 
dlversas ao usuarlo 



// Mensagens 



VtAviso [ 1] 
VtAviso [ 2] 
VtAviso [ 3] 
VtAviso [ 4] 



= "Usuarlo nao Cadastrado" 
= "Senha n&o aceita" 

= "Uso impossivel" 
m "Nome Invalido" 



// Variaveis Publicas 

cMyTela := cMyPass : = MyTela 

My Senha : = SPACE ( 1 ) 

PassTryed : = 0 



/* Say , Get , Borda , 

OtrGet Cores do Sistema */ 

CorA : = " R / B , N / W+, B" 

// Barra Vermelba dos Avisos 
CorC :="W /R ,W /R, B ,, N 

/GR+" // Memos e Abertura 

CorF : = "*W / B , N / W" 

// Avisos 

CorG " W / B , N / W+, B , , N 



Micro 






Voce manda para a Enter Press Editors 
cheque nominal no valor da assinatura 
que voce deseja, e recede em sua casa, 
durante um ou dois anos, exemplares da 
revista Micro Sistemas. 



I 



PR0M0QA0 

1 ano (1 2 meses) R$ 45,00 

2 anos (24 meses) R$ 90,00 



ENTER PRESS EDITORA Ltda 

R. Lourengo Ribeiro, 124 A 
21050-510 - Rio de Janeiro - RJ 
TEL.: (021) 230-4784 
FAX: (021) 242-9981 



NOME: 

ENDEREQO: — 

EQUIPAMENTO. 



PROFISSAO:. 
CHEQUE No.:. 
OBS: 



.TEL:. 



.BANCO: 




Assinatura 



Desejo receber da ENTER PRESS EDITORA 
Ltda., uma assinatura de Ol G2 anos da 
revista Micro Sistemas. 






NAO PERCA 
ESTA PROMOQAO: 
40% de desconto 



Na compra do GRAPHOS III e mais um jogo voc§ ganha 40% de 
desconto no valor total do pedido e recede ainda, inteiramente gratis, o 
PRO KIT topview para fazer as incriveis animates da segSo Bitmap. 



Aventura e misterio no 



Forme um grupo de jogadores, pois a 
PRO KIT este langando sua mais 
fantasiica aventura no reino dos jogos in- 
teligentes: um autentico RPG para com- 
putadores. 

0 mestre cria os cendrios onde 
acontecerao as missoes e os jogadores 
sao colocados frente as mais diversas 
situagdes. Ao terminar uma partida, o 
mestre avalia o desempenho do jogador 
e, se for o caso, concede-lhe um talisma 
de forga e conhecimento, que podera ser 
usado nas proximas missoes. 

Os jogadores podem ate mesmo juntar 
suas forgas para veneer uma missfio mais 
complexa ou para combater um guardido 
mais poderoso. 

As missoes podem ser simples ou pos- 
suir diversos niveis de dificuldade, com 
inumeros perigos, armadilhas, guardiaes 
e a temivel aparigao WAHAMEC - um ser 
etdreo que busca materiaiizar-se em 
nosso universo. 






A criagao das missoes e extremamente 
simples e totalmente comandada por 
icones. 0 mestre pode visualizar cada 
uma das salas do subterraneo e 
selecionar ate mesmo o tipo de parade 
que as formam. 

Ao praparar um cendrio, o mestre da a 
cada jogador um disco contendo todo o 
sistema responsavel pelo jogo. Ao ter- 
minar a missao, o jogador devolve o disco 
para a sua avaliagao e entao recebe uma 
palavra magica, que content todo o seu 
conhecimento e forga. 

Requisites: 

PC 286/386 - VGA 256Kb - A: 1 ,2Mb - mouse 

□ Xingu R$ 35,00 



iGRHPHDg 



versdo 5.0 

Totalmente escrito em Assembler, o 
GRAPHOS III 6 o mais rapido editor para 
o PC e um dos poucos que nao exige 
megas e megas de memoria para ser ex- 
ecutado. Tudo nele e simples e facil de 



Atem dos recursos tradidonais de edigao grafica, tais como linhas, retangulos, raios, 
circulos, fill, spray, inversao, rotagao, espelhamento, etc, o GRAPHOS III possui ainda 
ferramentas espedais para code e duplicagao de pedagos da tela, zoom para 
corregoes delicadas nos desenhos, troca de atributos e uma nova ferramenta para uso 
com os padroes graficos prd-definidos. 

A grande novidade desta versao 6 o arquivo Clipboard, que pode manipular ate 180 
telas. Essas telas podem ser posteriormente compactadas num unico arquivo e integrar 
um sistema de slide show simples e tecil de programar. £ possivei controlar o tipo de 
efeito especial que sete usado para mostrar a tela, o tempo que ela permanecera 
mostrada e ate mesmo associar uma tecla a cada tela. O sistema pode criar um 
programa executevel, para o slide show, que independe do GRAPHOS III para fun- 
donar. 

O editor de aifabetos permite que o usudrio crie e edite alfabetos proporcionais, com 
2 pixels de altura ate 1 6 pixels. Novos recursos de dipping e captura gtefica aumentam 
consideravelmente o poder dos editores de padroes e de alfabetos. 

A edigao da palette este mais simples ainda. Com poucos comandos do mouse e 
possivei alterar as intensidades de RGB de cada cor. Atem disso, 6 possivei controlar a 
intensidade (claro/escuro) das cores e calcular o tom de cinza correspondente da cor. 

O programa GRAPHOS III ainda permite que se grave ou recupera arquivos no for- 
mate TIFF, nao compactado, com definigao de cores. 

Requisitos: 

PC 286/386 - VGA 256Kb - A: 1 ,2Mb - MS mouse 

□ Graphos III (versao 5.0) R$ 72,00 



r dk I ijj T ^ pnjjr A T w I 1*1 Versoes para 

I ■ I M I ■ I I !■ I CGAe VGA 

O mais tradicional Adventure escrito em portugues. Dez an os de sucesso . 

□ Amazonia (CGA/ VGA) R$ 15,00 







Renata Deglovanl 



A AVENTURA ESTA 
APENAS COMEQANDO 

Prepare-se para uma incrivel aventura no espago, 
em busca de um pequeno planeta azul. O Nautilus 6 um jogo de estrategia, que ira 
colocar em teste sua habilidade no comando de uma espagonave. 

Caracteristicas da nave: 

* Controles por mouse 

* Tela de informagoes 

* Dterio de bordo 

* Sistemas de artelise Requisitos: 

* Torpedos fotonicos e phasers PC 286/386 -VGA 256Kb- A: 1.2Mb- MS mouse 

* VelocidadeWARP 

* Botao de autodestruigao [H Nautilus R$ 25,00 







fincRfi j 

Seus nervos serao testados ao extremo neste sen- 
sacional adventure grifico. Sangue trio e inteligenda 
sao os requisitos basicos para salvar o Brasil de um 
grave acidente nuclear. 

Requisitos: 

PC 286/386 - VGA 256Kb - A: 1 ,2Mb 



□ Angral R$ 15,00 




A mais nova sensagao da ravista Micro 
Sistemas agora em disquete, especial- 
mente para VGA. Todos os shapes da 
galeria de arte, os roteiros de animagao, 
os icones, programas shareware, etc, 
numa estrutura grafica interativa (como 
num livro digital). 

Oicas e truques para obter mais cores 



no monitor, macetes de criagao usando o 
GRAPHOS III, e muito mais. 

Disponivel no BBS Sdculo 21 • RIO 
(021)521-6947 - Download livre 

PC 286/386 -VGA 256Kb -A: 12Mb- mouse 

□ Bitmap #1 R$6,00 



Envie cheque nominal para PRO KIT Informatica e Editora Ltda 
Caixa Postal 108.046 - Niteroi/RJ - CEP 24121-970 








/GR+" // Jane las e Gets 

CorH :■ * GR+/ B , N / W , B" 

// Abertura 

NOSNOW ( .T. ) 

DO VE_SENHA 
DO ABERTURA 
DO MENU 

SET CURSOR ON 
SETCOLOR ( CordoDos ) 

RESTORE SCREEN FROM TeladoDos 
SETPOS ( IiindoDos, 79 ) 

QUIT 

FUNCTION fChkPass { cMyPass, RetKey ) // — 



UserName 

cMyPass 

PassTryed 



= FBrancos ( UserName ) 
= FBrancos ( cMyPass ) 

» PassTryed * 10 



IF ALLTRIM ( UserName ) = MalnUser .AND. 

ALLTRIM ( My Pass ) - MainPass 
RETURN ( .T. ) 

END IF 

IF I DBSEEK ( UserName ) 

TONE ( 950, 0.1 ) 

INKEY ( PassTryed ) 

RETURN ( .F. ) 

ENDIF 

IF Autenti = fCalcPass ( cMyPass ) 
PassTryed : = 1 
RETURN ( .T. ) 

ENDIF 

TONE ( 950, 5 ) 

INKEY ( PassTryed ) 

cMyPass : = SPACE ( LEN ( cMyPass ) ) 

RETURN ( .F. ) 

FUNCTION fCalcPass ( CcMyPass ) // 

LOCAL Toa, Pala, J, 

I 

SET DECIMALS TO 9 



CcMyPass 


:= ALLTRIM ( CcMyPass ) 


Toa 


:= LEN ( CcMyPass ] 


Pala 


: = 0 


J 


:= Toa + 2 


FOR 


1 = 1 TO 



J++ 

Pala : = Pala + ( J + LOG ( ASC ( ( 
SUBSTR ( CcMyPass, I, 1 ) ) ) ) ) 

NEXT 

RETURN { ROUND ( { Pala * 18.12345 ) * ( 
l/( 22/7 ) ), 8 ) ) 

FUNCTION fBrancos ( VarToClean ) // 



// Joga todos os caracteres a direita e 
retlra os zeros a esquerda 



LOCAL 



Compa 



j s = LEN ( VarToClean ) 

VarToClean : = ALLTRIM ( VarToClean ) 

Compa : = LEN ( VarToClean ) 



FOR i = 1 TO Compa 

IF SUBSTR ( VarToCle an, i, 1 ) = "0" 

VarToClean : = STUFF ( VarToClean, 

i, 1, * " ) 

ELSE 

EXIT 

ENDIF 

NEXT 

VarToClean : = ALLTRIM ( VarToClean ) 
Compa : = LEN { VarToClean ) 

RETURN ( SPACE ( j - Compa ) + VarToClean 



FUNCTION fConf // 

// Funcao para pedlr a confirmacao do 
usuario 

LOCAL Cnf := SPACE ( 1 ) 

SETCOLOR ( CorG ) 
fDesBox ( ) 

TONE ( 400, 0.1 ) 

TONE ( 300, 0.5 ) 

0 (MAXROW ()- 1) , 3 SAY "Confirma: (S/N) * 
GET Cnf PICTURE "l" VALID Cnf $ "SN" 

READ 

TONE ( 500, 0.03 ) 

Cnf := IF ( LASTKEY () =27, "N", Cnf ) 
RETURN ( IF ( Cnf = "S", { . T . ) , ( .F. ) 

) ) 

PROCEDURE fAvisa ( Ner ) // 

II Envla mensagem na linha Inferior da 
Tela 

LOCAL OldCorAvs 
fDesBox ( ) 

OldCorAvs := SETCOLOR () 

SETCOLOR ( CorG ) 

9 ( MAXROW () - 1 ), 2 SAY REPLICATE { " 

", ( MAXCOL () - 2 ) ) 

9 ( MAXROW () - 1 ), 2 SAY "Aviso: " 
SETCOLOR ( CorA ) 

9 ( MAXROW () - 1 ), 8 SAY REPLICATE ( "- 
", { MAXCOL () - 8 ) ) 

SETCOLOR ( CorF ) 

9 ( MAXROW () - 1 ), 9 SAY VtAvlso [Ner] 
SETCOLOR ( OldCorAvs ) 

RETURN 

PROCEDURE fDesBox // 

// Llmpa aviso enviado pela funcao fAvisa 
e outros 

SETCOLOR ( CorG ) 

9 ( MAXROW ( ) - 1 ) , 02 SAY REPLICATE ( " 
", ( MAXCOL () - 2 ) ) 

RETURN 

FUNCTION CabeTel ( MeuProg ) II 

// Fundo de Tela Base para Digitacao 

LOCAL MyTela 

SAVE SCREEN TO MyTela 

SCROLL ( 6, 3, ( MAXROW () - 3 ) , ( 
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MAXCOL () - 2 ), 0 ) 

9 6, 3 TO ( MAXROW () - 3 ) , ( 

MAXCOL () - 2 ) DOUBLE 

f Centra { 7, MeuProg ) 

SET SCOREBOARD ON 
SET CURSOR ON 
RETURN ( MyTela ) 

FUNCTION Limpa // 



SETCOLOR ( CorG ) 

CLS 

9 01, 01 TO MAXROW (), MAXCOL () 
RETURN ( fCentra ( 1, "Si sterna de Senhas" 

) ) 

PROCEDURE fCentra ( Clin, Centra ) // 



// Centraliza no Centro da Linha no Moni- 
tor 

9 Clin, ( MAXCOL () - LEN ( Centra ) ) / 2 

SAY Centra 

RETURN 



INCLUI.PRG 



Programa : INCLUI . PRO 
Programador: Dirceu da Rosa Portela 
LOCAL MyTela 
WHILE ( .T. ) 

SETCOLOR ( CorG ) 

MyTela :■ CabeTel ( "Cadastramento 
de Usuarios" ) 

cNewUser := SPACE ( LEN ( Username ) 

9 10, 5 SAY "Nome do Usuario: " 

9 10, 23 GET cNewUser PICTURE "9!" 
VALID fVazio ( cNewUser, 4 ) 

READ 

IF LASTKEY ( ) - 27 
RETURN 

ENDIF 

IF ! f Conf ( ) 

RETURN 

ENDIF 

RESTORE SCREEN FROM MyTela 
cNewUser := FBrancos ( cNewUser ) 

IF IDBSEEK ( cNewUser ) 

APPEND BLANK 

ENDIF 

REPLACE Usuario WITH cNewUser 
IF Autenti == 0 

REPLACE Autenti WITH ( 
fCalcPass ( cNewUser ) ) 

ENDIF 

ENDDO 

STATIC FUNCTION fVazio ( cNewUser, Ner ) / 
£DesBox ( ) 

cNewUser : » FBrancos ( cNewUser ) 

IF EMPTY (cNewUser) .OR. cNewUser = 
UserName .OR. ALLTRIM (cNewUser) = 

MainUser 

TONE ( 300, 5 ) 
fAvisa ( Ner ) 

RETURN ( .F. ) 

ENDIF 

RETURN ( .T. ) 



ALTERA. PRG 



Programa: ALTERA. PRG 
Programador: Dirceu da Rosa Portela 
LOCAL MyTela 
WHILE ( .T. ) 

SETCOLOR ( CorG ) 

MyTela : = CabeTel ( "Alterar Senha" 

) 

cOldPass : = cNewPassA : = cNewPassB : = 
SPACE ( LEN ( MyPass ) ) 

9 11, 5 SAY "Digite sua Senha:" 

9 13, 5 SAY "Digite sua nova Senha:" 

9 15, 5 SAY "Redigite sua nova 
Senha : " 

SETCOLOR ( "W/N, W/W, , , N/N" ) 

9 11,31 GET cOldPass PICTURE "9!" 
VALID fAltPass ( 9c01dPass, ( . F. ) ) 

9 13,31 GET cNewPassA PICTURE *9!" 

9 15,31 GET cNewPassB PICTURE "9!" 

READ 



IF LASTKEY () = 27 
EXIT 

ENDIF 

cNewPassA : = FBrancos ( cNewPassA ) 
cNewPassB := FBrancos ( cNewPassB ) 
IF cNewPassA I ° cNewPassB 
SETCOLOR ( CorG ) 
fAvisa ( 2 ) 

TONE ( 300, 5 ) 

INKEY ( 0 ) 

LOOP 

ENDIF 

IF If Conf {) 

RETURN 

ENDIF 

MyPass : = cNewPassA 
REPLACE Autenti WITH fCalcPass ( 
MyPass ) 

RETURN 

ENDDO 

STATIC FUNCTION fAltPass { cMyPass, 
RetKey ) // — 

UserName : = FBrancos ( UserName ) 

IF ( ALLTRIM ( UserName ) ) m ( MainUser 

) 

RETURN ( .F. ) 

ENDIF 

cMyPass : = FBrancos ( cMyPass ) 
PassTryed := PassTryed * 10 
IF 1 DBSEEK ( UserName ) 

TONE ( 950, 0.1 ) 

INKEY ( PassTryed ) 

cMyPass :- SPACE ( LEN ( cMyPass ) 

RETURN ( .F. ) 

ENDIF 

IF Autenti = fCalcPass ( cMyPass ) 
PassTryed : = 1 
RETURN ( .T. ) 

ENDIF 

TONE ( 950, 5 ) 

INKEY ( PassTryed ) 

cMyPass : = cNewPassA :« cNewPassB :« 
SPACE ( LEN ( cMyPass ) ) 

RETURN ( .F. ) 
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CLASSIC SOFT 1 

RUA JOAO CORDEsRO, 495 - FREGUESIA DO 



TEL /FAX (Oil) 875-4644 

O 6 - SAP PAULO - CAPITAL - CEP 02960-000 






FA?A SEU PEOIOO: Por Wafone. fax ou oaita. 

, FORMAS DE PAQAMENTO: 

A) SEDEX 4 cobiar, vocS «6 pagara quando ratirar o padido no oonaio da sua oldada. 
(Lembramoa qua oa serviqoa doa corteios ado caKaaimoa) 

B’ ; CHEQUE NOMINAL A CLASSIC SOFT LTDA., para aua cotnodidade a economia recomendamos fazer o 
pedido por chaqua nominal poia voo4 raoaba eau padido am oaaa. 

C) DEPbSITO BANCARIO: Unibanco - ag. 137 - oonta 113 444-4 am noma da Claaaic Soft 
Bradesco - ag 117-1 - oonta 98741-7 am noma da Claaaic Soft - enviando xerox do depbaito junto ao partdo. 

DESPESAS POSTAIS: (Ragetrada) padidoa ate 18 diacoa R$ 2,80 (Prepo aomante para pagamento am cheque 

deobeito bancariol J 



PROMOTES PC 

10 Jogoa ou optic, ganha tan gfWa cl diaco. 
90 Jogoa ou aplle. ganha 10 grOUa cl diaco 

DISCO 5 1/4 HD C/ QRAV R$ 2,00 

DISCO 9 1/4 DD Cl GRAV R* 1,90 

PARA COMPRA ACIMA DE 20 DISCOS 
PAQAMENTO EM DUASVEZES: 
metaco no ato, metade para 15 dias apbs 



APLICATIVOS DE DOMINIO PUBLICO E SHAREWARE PARA PC/XT/AT 



COD 0/D NOME/DESCniCAO 



1DD ABOVE & BEYOUND - admlnlstra Informagfies pessoal*. 

IDD ANIMATE FOR WINDOWS • Imagtns animada*. 

1DD ASTRONOMY CLOCK - horai astronfirrtca* • mundlaii. 

1HD ASTRONOMY LAB - gera evento* astronfimloos slmtMnao*. 
IDO BANC BANG - logo da estratigla para 2 jogadore*. 

1DD BIZ WIZ * caiculadora flnancalra. 

I HD BMP COLECTICN I • pacof* da tala* BMP. 

I HD BMP COLECTION 2 • mail talas. 

IDD BOD FOR WINDOWS - |ogo da raclodnlo com palavras. 

IDD BOX PLOT - calcula a frsqutncla da raspostado falanta. 

IDD BUILDER • crla Icons* para documantos. 

IDD CAD VANTAGE - podaroso cad para windows. 

IDD CHEMICAL FOR WINDOWS - modalo da molfeculas am 3d. 
1HD EXPLOSIV WINDOWS/DOS - font** graftal pi monitor. 

IDD FINANCIER PLUS • organlza or?amanros. flnanclamanto* ... 
IDD FRACTAL PAINT - programa Intaratlvo pi projato* graflcos 
IDD GAME COLECTION 1 - tr4s logos da raclocfnlo tlpo tatrls. 

IDD GIF 2 BMP • convert* talas .GIF para .BMP. 

IDD HP CALCULATOR • caiculadora HP para windows. 

1HD INCCNTACT - com pi ato admlnlstrador da contatos. 

2H0 INSIDE COREL DRAW - vfcrlos utilltWo* para windows. 

IDD 10 TEST FO WINDOWS - taste da 01. 

IDD LASER TAME « utllltarlo para Imprassoras A laser. 

I DD MATAGRAF V2.4 - gara curvas matamatlcas. 

IDD METRIC CONVERTER - convenor da madldas metrical. 

I HD MICRO LINK - paeota da comunicapfio para modem. 

IDD MONEY SMITH - controla saus ralfies da chaqua. 

IDD MY CATS • gato qua flea capando o cursor. 

IDD PAINT SHCP PRO - convert*, axlba.altara a Imprlma Imagans 
IDD RCCK FORD • editor profisslonal da cartfia*. 

IDD SYNC IT • faz transfarincla da arqulvos antra micros. 

IDD TETRIS 3D FRACTAL ■ tatrls am tris dlmensflei. 

IDD TOUCH TYPE TUTOR - tralna sua datilografla, axcelents. 

IDD XWCRLD CLOCK - horas da todos os paisas do mundo. 

IDD WHCCP rr UP - maximize as funpfias da eom dantro do wind. 
1HD WIN ABC • Intro due Ao ao computador para crlanpas. 

2DD WIN GRAB • para Imprlmlr endarepos am envelopes. 

I HD WINFIN - doze programas para anhlisa flnancalra. - 
I HD WINSPELL - testa de ortografia. 






COD. 0/D NOME/DESCRICAO 



ADS 10 IDD ANSI PAINT- editor graflco. usataba la asc. 

A0908 IDD CHARTS UNLIMITED • Integra graflcos a taxto. 

A0907 IDD FINGER MAPS 1 .01 • edlta mapas com dados a Inforroapfia*. 

A0906 IDD FINGER PAINT 2.0 -editor graflco facll uso. otlmo. 

A0905 IDD FINGER VGA - procassador da Imagans, plnta a anlma. 

A0903 2DD FLOW DRAW 22 * adltor da fluxo gramas, mapas ... novoll 
AQ9Q2 IDD HI-RES RAIMBOW • adltor graflco. (oga) 

A090I IDD LEONARDO (ega)* adltor graflco c/contrupk> de slides. 

A0900 IDD MAC PASTE 2.10 - adltor graflco, otlmo. 

AO890 IDD PAINTERS APPRENTICE - facll uso. farramanta p / plntar. 
AH099 1HD PAINT BOX • adltor graflco, 

AQ097 IDD PARTY DOT- garador da dasanhos artlstlcos, 

A0896 IDD PC ART 4.0 (ega) • adltor graflco da facll uso. 



IDD ANYANGLE 2.65 - astudo do* trlangulos. nova versaot 
1 KD CADET - editor da taxto p/ uso com AUTO CAD. 

1HD CURVE DIGITIZER • varsatll editor graflco. 

IDD DICOGO 3.0 • gara coordenadas geometrlcas am 2D. 

IDD DRAFT CHOICE 1.51 - nova varsao do otlmo cad, 

2HD ENVISION PUBLISHER (VGA) ■ dektop publishing, excalentel 
I HD HYPER SLIDE - aprasenta a crla slides, usa talas AUTOCAD 
IDD LAYOUT - crlapAo da dasanhos a farramantas p/ manutanpfio 
IDD MEGA DRAW 4.0 - farramanta p / dasanhos a anlmapfia*. 

1HD PC DRAFT CAD 3.6 • podaroso cad. 

4DD PC KEY DRAW 3.76a - varsatll slstama graflco. novoll 
IDD PRINT CAD 1.14 • amulador da plotter para cad. 

IDD RECURSIVE REALM 3.0 • sistema p/ criar fractals. 

IDD QUEST V3.1 • editor graflco am 3d. otlmo. 



WSii 



I HD ADVENTURE TOOL KIT - p ara criar adventures. 

IDD ALPHABET GAMES - alfabato para crlanpa*. pra-ascola. 

IDD AMAND LETTER LOTTO • logo p / crlanpas, cores a latras. 

IDD ANIMAL MATH • apranda a confer, somar subtralr ... 

IDD ANIMAL QUEST (vga) - |ogo para crlanpa*, axcalanttl. 

1HD ANIMATED ALPHABET(aga'vga)- otlmo p / aprandar Ingles. 
1HD ANIMATED MATH (aga) • apranda a contarcom figures. 

1HD ANIMATED SHAPES(aga/vga)- p / idantiflcagAo da figures 
1HD ANIMATED WORDSfaga'vgaJ-apranda Ingles c/ figures a sons 
IDD BERTS DINOSSAUROS - crla palsagens a voce plnta. 

IDD BOAT BOX- otlmo logo para crlangas. 

IDD BRAINSCAPE * adventure am Ingles. 

I DD BRANOON’S LUNCHBOX - progr. p / IntrodugSo ao taclado. 
IDD CATCHEM (vga)- otf mo |ogo para erlangas. 

IDD CHILDRENS GRAPHICS ■ para desenhar a contar. 

IDO CLOCK AND MOUSE - apranda a ver horas. 

IDD COIN IN THE BOX- fogo para crlangas, soma. 

IDD CRAZY SHUFFLE - otlmo |ogo da mamorla. 

IDD EGA COLOR BOOK -talas c/ dasanhos p/ crlangas plntaram 
IDD EGA MOUSE PAINT (EGA) - 29 figures pi plntar. 

IDD FUNNELS & BUCKETS • logo com contas matamatlcas. 

I HD JOHNS ANIMATED • dlversao para changes. 

IDD KID PAINT (aga) - talas para crlangas plntaram. 

IHD THE ANIMATED MEMORY (ag^vga) • |ogo de mamorla. 

IDD WORO GALLERY • apranda Ingles com dasanhos. 

IDD WORD PROCESSING FOR KIDS - adltor da taxto pi changes. 
1HD WORD RESCUE - jogo da agAo. monta palavras. 

1HD WUNDER BOCK (vga) - [ogo para crlangas c/ dasanhos. 



I HO ACE ASTRONOMY - tudo sobra o sistema solar. 

IDD ASTROCLK - raloglo astronomico. 

IDD ASTROL 96 • calcula o zodiaco, posIgAo dos planatas ... 

IDD ASTRCMICAL EPHEMERIS • fornaca mapas astronomlcos. 
IDD COSMOS 8.07 • slmulagAo astronomica. astllo planetarlo. 
2DD DEEP SPACE 3D - produz mapa astalar. 

IDD EARTH WATCH - exiblgAo da graflcos da terra a lua. 

IDD GRAVITY SIMULATOR ■ Simula gravldade antra os planatas. 
IDD JUPITCR SATELLITE SIM. - slmulagAo a exiblgAo da JCipItar 
IDD LAUNCHER- Inf ormapfias sobra orbltas. 

1HD MISSION TO MARS - todas informapfia* sobra marta. 

IDD MOONS OF JUPITER - postpfias da jupltar a suas luas. 

IDD NAVAGATICN JUPITOR - programa pi navegagAo marinha. 
IDD PLANETS - utlHtario d InformagAoa sobra os planatas. 

IDD SLICON SKY • axlba mapa celestial a posIgAo dos planatas 
IDD SKY BASE 2000 • crla mapas a Imagans do ctu. 

IDD SKY GLOBE 3.0 • faz mapas das astralas a constalacdas. 



A0912 IDD 256 DRAW (vga)- adltor graflco. excel ante. 

AH91 1 I HD ANATHER PROGRAM (vga) • animates, adlgAo a som. 



IDD BETTER EYESIGHT - tudo sobra os olhos a saus musculos. 

IDD 8ISIM- Imltaaco slstamas naturals. 

IDD CHEM PACK • completa tabeia periodica. 

IDO CHEMICAL 4.2 - crla moldes de molaculas 3d. nova varsao. 

IDD CHEMVIEW ■ anlmagAo molecular am 3D. 

1 DD ELECTRON - tudo sobra alatrons a elatrlddade. 

IDD ELEMENT STUDY AID - tudo sobra os elementos qulmlcos. 

IDD FAMLY TREE - efetua calculos ganatlcos. 

IDD FLAGS - bandeiras da todos os paisas a eetadoe. 

1HD GEO CLOCK (vga) - atlas dlgltafizado. 

IDD HAZADGUS CHEMICAL - anallse da compatlblildada qulmlca. 
IDD LEARN TO SING • anslna o alfabato usado palo mudos. 

IDD LOTUS LEARNING - anslna a usar a planilha lotus 123. 

IDD NATIONS OF WORLD - estatlstlcas gaograficas do paisas. 

1 DD PC CALIB - calibra concantragAo da substanclas quimicas. 

IDD PC FASTYPE (ega) • otlmo curso da datilografla. 

IHD THE HEART * tudo sobra o coragAo humano. 

IDD VACATION PLANNRE - Informal** a mapas dos EUA a Canada 
IDO WA TOR • slmulagAo da predadores a prasas. 






IDO ALBUN MASTER - varsatll catalogador da album. 

IDD BOOK LIBRARIAN - catalogador da llvros profisslonal. 

1 HD BUCK FILE • otlmo programa pi coiecionadores. 

IDD CASSETE MASTER • cataloga fltas d funpfia* da Imprassao. 
IHD CASSETEi - slstama para catalogar fltas K-7. 

IDD COIN FILE - slstama da Invintarki pi colapfias da moadas. 

1 DD CGLLECT1 - varsatll slstsma banco da dados. 

IDD FOR ANTIOUE DOC.- p/catalogar antlgos a raros documantos 
IDD FOR COMIC BOOK - programa para coladonador as da llvros. 
IDD FOR GUN COLLECTORS - para col ac Ion ad or as da armas. 
IDD INTEL! CAT -catalogador da tf squares. 

IHD MOVIES- banco da dados para fllmts. 



IDD BARTENDER 1.1 -200 racaltas da bebldas a coqultals. 

IDD BIORHYTHM - gara lista da biorritimo mansal. 

IDD COMPUTER BAKER - 99 racaltas p / forno. Banco da dados. 
IHD DIET AID - piano da dleta computadorlzada. banco dados. 

IDO OIET TEST -controla da peso. 

100 EDNAS'S COOK BOCK - complato slstama para racaltas. 

100 EKG • Intarassanta aprasantagAo anvolvando corpo humano. 
IDD EMS • teenieas da amargancla medlca. 

IDD FAST FOODS • lista nutriclonal d saus valoras protalcos 
IDD FLOWER REMEDY PROGRAM - ensino sobra as floras. 

1 DD GOURMET RECIPES • 66 diraranlas racaltas am formato TXT. 
IDD HEADACHE FREE • InformagAfias relatives a dor da cabeca. 
IHD HEALTH AIDE • orlantagAo nutriclonal. 

IDD HOME BARTENDERS GUIDE - racaltas da bebldas a drinks. 
IDD INSULIN • prog, pi ajudar na ragulagam de Insuiina usada 
IDD KINETICS - ajudao medloo no controla da doses a drogas. 
IDD NON-MEDICAL • teenieas pi superar sofrlmento a doras. 

1 DD NURSE WORKS 2.0 - series da anfarmagam d utllltarios. 

IDO PRESCRIPTION ASSISTANT - prascrigAo da atiquetas. 

IHD SUMMER - radugAo da peso pi nival da colastarol alto. 

1 HD THE ALTERNATIVE HEALTH - varies assuntos sobra saude. 
IDD THE STRESS TEST • determine seu nival da strass. 

IDD WHY YOU SMOKE - avalia a ralata procadlmanto da fumar. 
IHD YOUR NUTRITIONIST - nutrlgAo. anallse a planajamanto. 



COD. O/D NOME/DESCRICAO 



A0679 IDD CHART - programa para engenharia aletrlca. 

AH909 1 HD EASE CASE 1 .67 * software da engenharia. 

A0876 IDD NET WORK -crlagAo a anallse da drcultos alatronlcos. 

AH877 IHD PSPICE • simulador da dreuito alatronlco. 

A0876 IDD RESISTOR COLCR(aga)- gula da resistor, calculos am Ohms. 






IDD AC HUNTER • alta qu alidade rafaranta a talafonas. 

IDD ADRESS MANAGER • mala dirata. talafonas. andsracos. 

IDD AMORTIZATION - faz calculos flnancairos a astlmatlvas. 

IDD BUSINESS ANALYSIS - programa flnancalro a astatistlco. 

IDD CUENT NOTE FILE - manipula InformagAfias sobra dlantes. 
IDD CONSTRUCTION EST.- astlma material a custo pi construgAo 
IHD CONTACT PLUS - agenda da talafonas a compromlesoe. 

IDO EASY DIAL 3.6 - programa para uso com modems. 

IHD EZ FORMS EXECUTIVE - adltor da formularloi. 

IHD EZ FORM FIRST 1.1 - mastra para crlagAo da formularloe. 
tHD EZ FORMS LITE 1 .5 - adltor da formularloi. 

IHD FAST BUCKS * controla as flnanga* da casa. 

IDD FINANCE ANALIZER 2.0 - calcula impreltlmos, daposltos... 
IDD FIND AREA CODE - procure axflgo* da talafonas nos EUA. 
2DD FCNE 6. 1 * fornaca praco* da chamadas Intarnadonals. 

IDD FONE BOOK 3.0 - organize sua agenda talafonica. 

I HD FORM GENERATOR - adltor de taxto d caracteres graflcos. 
IDD LABEL MAGIC 3.01 • adltor do atiquetas graflcas. 

IDD LOAN CALC.- calcula mansaimanto pagt* do amprastlmos 
IDD PC AREA CODE 3.0 - procure areas das ddadas dos EUA. 
IDD PC BID 2.1 • praco ostimado am contratos • trabalhos. 

2DD PC ESTIMATOR • elabora tabolas da pracos. 

3DD PC MAIL 2.92 - mala dirata, axealent*. 

IHD PHONE 2.20 • eganda talafonica d nomas a anderecos. 

IDD PHONE MAN • agenda da endarocos a talafonas. 

2DD REGIT 4 2 - transforma seu pc am uma caixa registration. 
3DD STOCK CHARTING 3.1 1 - control* d* astoqua a marcadorias. 
IDD THE MAGNIFICENT ADDING - convert* seu pc am caiculadora. 






A0390 IDD 
A056 1 IDD 
A0004 IDD 
A0532 IDD 
A0008 IDD 
A0655 10D 
A0025 3DD 
A0484 2DD 
A0447 IDD 
A0389 IDD 
A0764 IDD 
A0763 IDD 
A0779 IDD 
A0564 2DD 
A0729 IDD 
A0486 IDD 
A0569 IDD 
A0786 IDD 
AO705 IDD 
AO707 IDD 
A0768 IDD 
A0762 IDD 
A0496 IDD 
A0388 IDO 
A0242 IDD 
A0781 3DD 
A0656 IDD 
A0067 IDD 
A0766 IDD 
A0069 IDD 
AO 7 80 IDD 
A0428 IDD 
A0497 IDD 
A0S20 IDD 
A0099 IDD 
A0539 IDD 
A0646 3DD 
AH801 IHD 
AH802 IHD 
A0767 IDD 
AO 105 IDO 
A0777 IDD 
A0444 IDD 
A0575 IDD 
A0788 IDD 
A0 1 1 3 IDD 
AO 1 14 IDD 
AC 77 6 IDO 



ADM. ESCOLAS E ACA. - sistima para ascolas a academia* 
AGENDA • agenda completa com manual cm portugues. 
AGENDA - agenda d* compromlssos. 

AMIGO (ega) - codigo de defesa do consumldor. 

ASTRAL (zodpc) • faz calculos e mapas astrologlcos. 
CADASTRO DE CLIENTES - cadastro de client**. 
CONSTITUICAO ELETRONICA - constltulcao brasllelra da 88 
CONTABILIDADE • sistema de contablldad*. 

CONTAS A PAGAR 8.2 - contas a p agar. (Com passo) 
CONTAS A PAGAR/RECEBER - contas a pagar • recebar. 
CONTAS A RECEBER 8.2 • contas a raceber.(Compasso) 
CONTROLE BANCARIO • controls suae finances. (Compasso) 
CONTROLE DE ESTOQUE 8.2 -otlmo contr/estoque. (Compasso) 
COSMICO CONTABILIDADE - sistema de contabilldade. 
CRIPTO - crlptografador de programa*. 

CUSTO & FATURAMENTQ - tudo para controlar sua flrma. 
DAP 1.1 VI 47 - tlra as senha* da logos. 

DISK INDEX - catalogador de dlsquetas. 

ELETRO • axacuta orcamanto do projatos eletricos. 

EXTOK 2.09 - control* da astoqua fislco a flnancelro. 
RCHARIO ELETRONICO - banco da dados, agenda... 

FLUXO DE CAIXA 8.2 • slstama da fluxo da caixa. (Com pas so) 
FOLHA DE PAGAMENTO -slstama da folha da pagamanto. 
FOLHA DE PAGAMENTO • outro otlmo folha da pagamento. 
GUIA PAULISTA - gula da hotels, lazar. raitaurantas ... 

INFO 2000 • Introducao a Informahca. 

LDSK • laz atiquetas pi disco com dretorio. 

LOTO DESDOBRADO - faz soitalo da loto podando Imprlmlr 
MALA DIRETA8.2 • super mala dirata. (Compasso) 

MALA OiRETA PRO BASE • slstama de mala dirata. 

MANUAL DOS SISTEMAS- manual dos alttamas da Compasso. 
MULTIMALA 1 .2 * slstama da mala drata. 

PC POLILOT • sortalo da loto a tefarla asportlva. 

PRONTO • flcharlo aletronlco. 

SAMI • fantastica agenda da compromlssos. 

SENA 91 • sortalo da jogos para sena. 

SENA4200 • faz sortalo* a comblnacoa* da sana. 

SIS. CONTROLE BANCARIO - controla bancarlo. 

SIS. CONTROLE FINANCEIRO - controla flnancalro. 
SISTEMA CONTABIL • slstama da contablikJade Integrado. 
SISTEMA CONTROLE ESTOQUE • controla da astoqua. 
SISTEMA IMOBILIARIA - slstama para Imoblllarias. 

SISTEMA PADRAO CONTABIL • slstama da contabildada. 
SUPER LOTO MASTER • sortalo da loto. 

TBAV 6.004 - antl-vlru» am portugues. 

TUTOR DOS 4.01 - tudo sobra o doa 4.01. 

TUTOR LOTUS 123 - apranda a utilizer a famosa planilha 
WNE editor d* taxto* em portugues. 









AO801 IDD A- F ILTER • caJculo p/ resistor e valoras p/ filtros. 
A0680 IDD CC COGO • programapara tngenharia civil. 




TEMOS PROGRAMAS PARA MSX - AMIGA - PC/XT/ AT 
PEC A catAlogo GRATIS ESPECIF/CANDO O SEU MICRO 



RUA JOAO CORDEIRO, 495 - FREGUESIA DO 6 - SAO PAULO - CAPITAL - CEP 02960 















CLASSIC SOFT 1 

RUA JOAO CORD EIRO. 495 - FREGU E SIA D O 



TEL/FAX (Oil) 875-4644 

106 - SAO PAULO - CAPITAL - CEP 02960-000 







FAIJA SEU PEDIDO: Por tdefone, fax ou carta. 

FORMAS DE PAQAMENTO: 

A) SEDEX A cobrar, vocd a6 pagara quando retirar o pedido no correio da sua cidade. 
(Lembramoa qua oa aervigoa doe ©orreioa ado cerieeimoa) 

B) CHEQUE NOMINAL A CLASSIC SOFT LTDA., para aua comodidade a economia reoomendamoa fazer o 
pedido por cheque nominal poi6 vocd reoebe seu pedido em oaaa. 

C) DEP0SITO BANCARIO: Unibanoo - ag. 137 - conta 113 444*4 em nome de Classic Soft 

Bradeeoo - ag 117-1 - oonta 98741-7 em nome de Classic Soft - enviando xerox do depdeito junto ao pedido. 
DESPESAS P0STAI3: (Registrada) pedldos at b 1 8 discos R$ 2,80 (Prego somente para pagamento em cheque 

depdsito bancArio) 



JOGOS P/ PC/XT-AT - DISCO HD 



- DISCO DD 



PROMOgdES PC 

10 Jogo* ou aplic. garth* um grtta cl disco. 
90 Jogoo ou aplic. ganha 10 gratis cl disco 

DISCO 5 1/4 HD Cl GRAY R$ 2,00 

DISCO 9 1/4 DD C l GRAY R$ 1,90 

PARA COMPRA ACfMA DE 20 DISCOS 
PAGAMENTO EM DUA8 VEZE8: 

metade no ato, metade para 15 dias ap6s. 



1,50 C/GRAVACAO 



C00.:(M> NOME 



HI 022 02HD 
H07B5 03HD 
H0936 02HD 
HI 041 02HD 
H0644 03HD 
H0681 01 HD 
HI 030 11 HD 
H0928 03HD 
HI 010 01 HD 
H1024 02HD 
H0636 04HD 
H0840 04HD 
H0086 02HD 
H0847 01 HD 
H1030 01 HD 
H0648 05HD 
H0C38 04 HD 
H0040 OOHD 
H0879 02HD 
H0B7B 01 HD 
H0929 02HD 
H0932 01 HD 
HI 058 10HD 
H0713 03HD 
HI 051 04HD 
H088B 01 HD 
H08W OOHD 
HI 028 02HD 
H0939 01 HD 
HI 043 06 HD 
H0747 03HD 
H0993 OOHD 

H0018 03HD 
H0877 01 HD 
H0910 12HD 
HI 075 01 HD 
H0924 02HD 
H0051 OOHD 
H0740 05HD 
HI 005 02HD 
HI 055 03HD 
H0893 OOHD 
HI 001 04HD 
H0853 06HD 
H0882 01 HD 
H0884 01 HD 
H0890 03 HD 
H0934 01HD 
H0938 02HD 
H0940 02HD 
H0942 02 HD 
H0943 02HO 
H0945 02HO 
H0947 02HD 
HI 007 03HD 
H1000 04HD 
H0955 14 HO 
H0720 11HD 

H0827 02HD 
HI 068 01 HO 
H0921 02HD 
H0935 02HD 
HO 777 01 HD 
HI 079 02HD 
HI 01 4 08HD 
HI 011 03HD 
H032W05HD 
H0334 03HD 
H0048 01 HD 

HI 070 02 HD 
HI 078 04HD 



AIRBU3320 
ACES OVER EUROPE 
BLAKE STONE FULL 
CLASSIC 5 

COACHES CLUB FOOTBALL 

COOL WORLD 

COMMA NCHE ENHANCED 

COMMA NCHE MISSION 2 

CREEPERS 

DINO PARK 

DOOM FULL 

DOOM REDE 

EIGHT BALL DE LUXE 

ELECTRO BODY 

ERIC PIMBALL 

ETERNAN 

FLIGHT SIMULATOR 5.0 
FLIGHT S14 (SAN FRANCISCO) 
FORD SIMULATOR 3 
QALACTTX NEW VERSION 
HIGTH COMMAND 
HALLOWEEN HARRY 
INCA 2 

INDY CAR RACING 
JURASSIC PARK 
LOTUS ULTIMATE CHALLENGE 
LEISURE SUIT LARRY 6 
LESSLE ANGEL 
LIVERPOOL 
METAL & LACE 
MORTAL KOMBAT 
MIGHT MAGIC V DARKS BE OF 
XEEN 

NIGEL MANSSEL 
PANG DINO BALL 
POLICE QUEST 4 
PINBALL DRENS FULL 
PINBALL FANTASIES 
PRIVATEER 
ROBOCOP 3D 
RAGNAROK 

RALROAD TYCON DELUXE 

RALLY 

RAPTOR 

STRIKE COMMANDER 
SOLAR WINDS 
SINK OR SWIN 
STREET FIGHTER II FULL 
SENSIBLE SOCCER 
SUPER PORNO 2 
SUPER PORNO 3 
SUPER PORNO 4 
SUPER PORNO 5 
SUPER PORNO 6 
SUPER PORNO 7 
SURF NINJAS 
STAR CONTROL 2 
STAR WARS CHESS 
STAR TRECK JUDGMENT 
RITES 

SIM CITY 2000 
SIM CITY (SENARJOS) 

SIM HEALTH 

TIME RUNNER 

THE LOST VIKINGS 

TOP GUN 

ULTIMA 8 PAGAN 

ULTIMA 8 SPEECH PACK 

X-WING 

WORLD CIRCUIT 
WORLD CIRCUIT 
UPGRA0E 
YO JOE 

GREAT NAVAL BATTUE 2 






H420 


5HD 


ALONE IN THE DARK (vga) 


H257 


BHD 


AMAZON (vga) 


HI31 


5HD 


CARMEN SANDIEGO DELUXE (vga) 


X66 


IDD 


CARMEN SANDEGO EUROPE (cga) 


JB31 


SOD 


CARMEN SANDEGO TME (egtega) 


J924 


IDD 


CARMEN SANDEGO N USA (cga) 


H354 


itHD DARK LANDS (vga) 


HIM 


9HD 


DARK SEED (vga) 


1469 


80 D 


DRAKKHEN (ega* gator) 


K379 


4HD 


DUNE R(vga) 


H240 


SHD 


RVEL (vga) 


H427 


1HD 


GALLEONS OF GLORY (vga) 


H452 


SHD 


GOBLINS (vga) 


H297 


IHD 


HOUSE OF HORRORS (vga) 


H067 


6HD 


N DIANA JONES ATLANT6 (vga) 


H423 


SHD 


KGB (vga) 


H302 


9HD 


KINGS QUEST VI (vga) 


J106 


2DD 


LEISURE SUIT LARRY 1 (cga) 


H299 


3HD 


LEISURE SUIT URFIY1 (vga) 



| C00.:Q/D 


NOME: 


1092 


0DD 


LESURE SUIT LARRY 3(cgatega) 


H04I 


0HD 


LESURE SUIT LARRY S (vga) 


J201 


2DD 


LIFE AND DEATH (cga) 


H474 


3HD 


MANSLEY LOS ANGELES (vga) 


H340 


SHD 


MARIO MSSiNG (vga) 


H370 


9HD 


MIGHT AND MAGIC 4 (vga) 


J519 


0DD 


MONKEY SLAND 1 (vga) 


H027 


0HD 


MONKEY SLAND 2 (vga) 


H407 


6HD 


POLICE QUEST 1 VGA 


H292 


5HD 


QUEST FOR GLORY 3 (vga) 


H313 


10HD 


SHERLOCK HOLMES (vga) 


J826 


3DD 


SPACE QUEST 2 (eg a* ga) 


J31 6 


6DD 


SPACE QUEST 3 (egatega**) 


HD35 


6HD 


SPACE QUEST 4 (vga) 


H365 


SHD 


SPACE QUESTS (vga) 


H413 


2HD 


STAR LEGIONS (vga) 


H274 


6HD 


STUNT BLAND (vga) 


Ht07 


4HD 


THE LEGEND OF KYRANDIA (vga) 


J929 


IDD 


TRAN SILVAN IA (cga) 


H485 


2HD 


VENGANCE OF EXCALBUR (vga) 










lOE AVENTURA 


J613 


2DD 


ASTERIX (ega/agatega) 


H089 


IHD 


BAT (vga) 


H337 


7HD 


BATMAN RETURNS (vga) 


X35 


4DD 


BATMAN THE MOVIE (egatega) 


H446 


IHD 


BUMPY'S (egatega) 


J847 


IDD 


CADAVER (vga) 


J167 


IDD 


CAPITAO TRUENO (cga) 


X60 


2DD 


CASTLE VANIA (egatega) 


1478 


IDD 


CD MAN (pac mantega) 


1204 


IDD 


CHARLIE CHAPIN (cga) 


1476 


2DD 


COMMANDER KEEN 6 (ega) 


1311 


6DD 


DICK TRACE (vga) 


J107 


2DD 


DUCK TALES (egatega) 


HI 55 


5HD 


FREE DC (vga) 


J742 


IDD 


FLNTSTONES (egatega) 


H1 16 


IHD 


GODS (306tega) 


J149 


2DD 


HORA DO PESADELO (egatega) 


1041 


3DD 


HORROR 20MB IE S (vga) 


J151 


IDD 


HOSTAGES (cga) 


JS88 


IDD 


LHA DISNEY (cga) 


J174 


IDD 


NDIANA JONES (egatega) 


JUS 


2DD 


N DIANA JONES 2 (ega/ega**) 


H290 


IHD 


JOE & MAC (386tega) 


H449 


2HD 


LURE OFTHETEMPRESS (vga) 


J21 3 


IDD 


MARIO BROSS (vga) 


H089 


IHD 


OUT OF THS WORLD (vga) 


J246 


IDD 


PAPER BOY (cga) 


H095 


IHD 


PAPER BOY 2 (vga) 


1302 


2DD 


PRE HISTORIC (agatega) 


0943 


3DD 


PREDATOR 2 (egatega) 


J260 


2D0 


PRNCE OF PERSIA (egatega) 


H460 


IHD 


PRNCE PERSIA EDITOR(cgatega) 


H469 


SHD 


PRNCE OF PERSIA 2 (vga) 


J272 


2DD 


RAMBO 3 (cga) 


H426 


IHD 


RISK WOODS (vga) 


J20O 


IDD 


ROAD RUNNER (egatega) 


J201 


IDD 


ROBOCOP (cga) 


J282 


2DD 


ROBOCOP SPECIAL (cga) 


H143 


5HD 


ROGER RABITT 2 (vga) 


H442 


2HD 


ROGER WLCO (vga) 


0305 


10DD 


SPACE ACE (egatega) 


1391 


12DD SPACE ACE 2 (egatega) 


H326 


2HD 


SPEAR OF DESTNY (vga) 


J070 


2DD 


SPIDER MAN (egatega) 


H140 


SHD 


THE ROCKTEER(vga) 


J672 


4DD 


THE SIMPSONS (vga) 


0948 


6DD 


THE SIMPSONS 2 (vga) 


HI 83 


IHD 


THE SMPSONS vi SPACE MUTANT 


H061 


IHD 


THE TERMNATOR 2 (vga) 


J975 


IDD 


TICOETECO (egatega) ! 


J564 


IDD 


TOM & JERRY (egatega) 


1294 


60 D 


WRATH OF DEMON (vga) 


HI 22 


IHD 


WOLFENSTEN 3-D (vga) 


0771 


3DD 


X-MEN (egatega) 



C00.:QTO NOME 



4x4 OFF ROAD RACNG (cga/eg) 
ACTION FIGHTER (cga/ega/ta) 
AFRICAN RALLY (cfla) 

CAR 1 DRIVER (396*08) 

CISCO HEAT (egatega) 

DAYS OF THUNDER (egatega) 
F-40 (ega) 

FERRARI F-1 (egatega) 

RRE AND FORGET (cga) 

FORD SMULAT0R (cga) 



FORD SIMULATOR 2 (cga) 
GRAN PR!X CIRCUIT (cga) 
GRAN PRK UNLIMITED (vga) 
HARD DRIVNG ( egatega) 
HARD DRIVNG 2 (cga/vga^oy) 
N DIANA POLISSOO (egatega) 
OUT RUN (ega/vgaher) 

PARIS DAKAR (cga/vgatier) 
POWER DRIFT (eg a* ga) 

RM SUZUKI {egatega} 

STREET ROD (egatega**) 
STREET ROD 2 (cgategali*) 
STUNTS (ogategafier) 

SUPER HANG ON (eg ate ga} 
SUPER OFF ROAD (egatega} 
TEST DRIVE 1 (egatega**) 
TEST DRIVE 2 (ega/egatega) 
TEST DRIVE 3 (vga) 

TURBO OUT RUN (cga) 
TURBO OUT RUN (vga) 

VETTE (egatega) 

WORLD CIRCUIT (366tega) 



ESPAOAISECOMBATES 

AgREOS 




COO.:Q/D NOME: 



HI 94 1HD WOLF PACK (egatega) 



ESPORTES EM GERAL 



XI 9 


2DD 


AFTE R BURNN ER (egatega**) 


J747 


2DD 


BLOODY MONEY (vga) 


J74Q 


2DD 


BLUE ANGELS (egatega) 


JII4 


IDD 


ELITE (cga) 


HI26 


IHD 


ELITE PLUS (vga) 


X94 


4DD 


FIGHTER BOMBER (egatega) 


H087 


IHD 


GALACTIC (vga) 


1198 


IDD 


STAR GOOSE (cga) 


X29 


IDD 


STAR TRECK (cga) 


-330 


5DD 


STAR TRECKV (vga) 


H 1 64 


7HD 


STAR TRECK XXV (vga) 


X94 


IDD 


THEXDER(cga) 


J509 


3DD 


XENON II (egatega) 


J412 


IDD 


XONIX (cga) 


H329 


5HD 


X WING STAR WARS (386tega) 


L002 


BHD 


WING COMMANDER II (vga) 




m 




X02 


2 DD 


680 ATTACK SUB 2 (egatega) 


X04 


4DD 


A 10 TANK KLLER (egatega) 


X64 


8DD 


A- 10 TANK KLLER 2 (agatega) 


1332 


6DD 


A-TRAN (vga) 


J704 


2DD 


ABRAMS BATTLE TANK (egatega) 


X30 


IDD 


ACES OF ACES (cga) 


H084 


SHD 


ACES OF THE PACIFIC (vga) 


1102 


4DD 


ATP (ega/egatega) 


HI 96 


5HD 


B-1 7 FLYING FORTRESS (vga) 


J043 


2DD 


BATTLE HAWKS 1942 (egatega) 


J045 


4DD 


BATTLE OF BRITAN (egatega) 


H20O 


SHD 


COMANCHE (306tega) 


X14 


6DD 


F* 1 1 7 A (vga) 


H2S6 


IHD 


F-11 7 A TURORIAL (vga) 


J544 


4DD 


F-14 TOM CAT (egatega) 


J1 15 


IDD 


F-15 STRIKE EAGLE 1 (cga) 


J116 


2DD 


F- IS STRIKE EAGLE 2 (egatega) 


H267 


6HD 


F-15 STRICK EAGLE 3 (vgafl06) 


J110 


2DD 


F-16 COMBAT PLOT (egahar) 


J121 


3DD 


F-1 9 (ega/egatega**) 


1421 


2DD 


F-29 (vga) 


J127 


IDD 


FALCON (cga) 


H055 


5HD 


FALCON 3 0 (vga) 


H26S 


2HD 


FALCON 3 OMISSION 


1435 


6DD 


FLIGHT OF INTRUDER (egatega) 


J130 


2DD 


FLIGHT SIMULATOR 3 0 (egategj 


J131 


2DD 


FLIGHT SIMULATOR 4 0 (ega/ag) 


H1 15 


IHD 


FLIGHT SIM 4 unwos 


X66 


2DD 


GUN SHIP (egatega) 


H064 


SHD 


GUN SHIP 2000 (iga) 


H39S 


2HD 


GUN SHIP 2000 MISSION 


H096 


IHD 


MEGA FORTRESS (vga) 


X74 


2DD 


MIG 29 (egatega) 


J745 


IDD 


MIRAMAR (cga) 


J701 


3DD 


RAL ROAD TYCON (egatega) 


HI 73 


2HD 


RED BARON (vga) 


1413 


0DD 


SECRET WEAPONS LW (vga) 


1007 


4DD 


SIM ANT (vga*w) 


1350 


2DD 


SIM CITY (cga) 


J297 


2DD 


SIM CITY (vga) 


X81 


4DD 


SIM CITY FUTURE (vga) 


1176 


4DD 


SIM CITY GRAPH ANCIENT (vga) 


J571 


4DD 


SIM EARTH (vga) 


H41 7 


IHD 


SPECTRE (vga) 


1026 


3DD 


STRIKE ACES (vga) 


X06 


IDD 


THE HUNT OCTOBER (cga) 



1191 


IDD 


10 TH FRAME (bolic*e)(cga) 


H053 


IHD 


4D SPORTS BOX NG (vga) 


1113 


4DD 


ABC BOXXING (vga) 


J979 


IDD 


ARCADE VOLEY BALL (cga) 


1174 


2DD 


BLADES OF STEEL (egatega) 


1355 


3DD 


BUFAU.0 BILL (egatega) 


X62 


3DD 


CALIFORNIA GAMES II (egatega) 


X76 


5DD 


DREAM TEAM (vga) 


1404 


IDD 


EIROPEAN CHAMPION 1992 (vga) 


J559 


too 


FERNAN MARTN (cga) (basque to) 


H212 


SHD 


HARD BALL 3 (vga) 


1336 


5DD 


HOLE N ONE (goileXcgatega) 


X76 


2DD 


NTERNATIONAL SOCCER (egateg) 


1100 


IDD 


ITALIA 90 (egatega) 


J104 


2DD 


KINGS OF THE BEACH (egatega) 


J191 


2DD 


LAKERS* CELTICS (egatega) 


1205 


5DD 


LINKS (v ga) 


H490 


4HD 


LINKS 366 (386/svga) 


J205 


3DD 


LOW BLOW (BOXE) (egatega) 


H399 


IHD 


NCAA BASKETBALL (vga) 


H455 


2HD 


OLMPkADAS 92 (vga) 


H415 


IHD 


SUPER SKY II (vga) 


J526 


3DD 


TAKE DOWN (lutalnrre)(cga) 


X97 


4DD 


TENNIS PRO TOUR (egatega) 


HI 12 


IHD 


TENNIS PT0T0UR2 (vga) 


1200 


2DD 


WORLD CHAMPION SOCCER (vga) 


J138 


2DD 


WORLD CUP SOCCER (cga) 


J437 


IDD 


WORLD GAMES (cga) 


J440 


IDD 


WORLD TOUR GOLF (cga) 



mtimi 



1 COO.: Off) 


NOME: 


1340 


3DD 


POKER CH NES (egatega) 


1030 


IDD 


POOL 3D (egatega) 


J349 


IDD 


STRIP POKER (cga) 


1155 


7DD 


STRIP POKER 3 (vga) 


1266 


IDD 


STRIP POKER EM PORTUGUES 


1249 


IDD 


TRUCO (ega/ega) 


1423 


10D 


VIDEO POKER (egatega) 


JOGOS PARA WINDOWS 


H574 


2HD 


AIR TRAFFIC CONTROLER (386) 


H1 16 


IHD 


BATTLE CHESS FORWNDOWS 


WH1S9 


IHD 


BATTLE SAT (batalha naval) 


HI06 


IHD 


CHESS MASTER 3000 FOR WN 


1203 


IDD 


DAMAS FOR WINDOWS 


WH229 


2HD 


GAME PACK IV 


H021 


IHD 


JOGOS FOR WINDOWS 


H383 


2HD 


MONOPOLY DELUXE (306) 


H641 


2HD 


PIMBALL WN DOWS (306) 


H457 


IHD 


POKER FOR WIDOWS 


W030 


10D 


PUZZLE 


H443 


2HD 


RISK FOR WINDOWS (306) 


1351 


2DD 


SIM CITY FOR WINDOWS 



1DD TAKE ONE 

IDD TETRIS FOR WINDOWS 

1HD WINS HARK (poker) 

!HD WINWHELL 
1HD ZONE ONE 



RACtOCWOE 



X14 


IDO 


AD ULf GAMES (ega) 


X20 


IDD 


AIDS (cga) 


X54 


IDD 


BOCA (cga) 


X77 


IDD 


CINE PORNO (cga) 


H450 


3HD 


DLVIEWER (vga) 


J965 


IDD 


EAST SUCKS WEST (vga) 


J830 


IDD 


MAXINE (cga) 


1300 


2DD 


NIKKI (vga) 


1432 


IDD 


PORNO 1 (cga) 


1434 


IDD 


PORNO CARTOONS (cga) 


J262 


IDD 


PORNO STORY (cga) 


H098 


IHD 


SEX CAPPAD (vga) 


H049 


2HD 


SUPER PORNO DEMO (vga) 


J706 


IDD 


TELA EROTICA (cga) 



1405 


IDD 


AIR60NE RANGER (ega/ega) 


1154 


IDD 


BATALHA NAVAL (cga) 


X59 


2DD 


CABAL (ega/ega) 


H215 


IHD 


CONFLICT (egatega) 


H214 


IHD 


CRACK DOWN (egatega**) 


1272 


2DD 


GREEN BERET (PC-XTfcga) 


J167 


IDD 


KARI WARRIORS (cga) 


1410 


IDD 


METAL GEAR (cga/ega*w) 


J241 


3DD 


OPERATION WOLF (cga) 


H286 


IHD 


PACIFC ISLAND (egatega) 


H402 


SHD 


PATRIOT (vga) 


X60 


IDD 


SUPER CONTRA (cga) 


H436 


6HD 


TASK FORCE 1942 (vga) 


H445 


3HD 


TWLIGHT 2000 (vga) 


PAREDAOEFUPERAMAS 


X26 


IDD 


ARKANOID 2 (cga) 


J940 


IDD 


ARKANOID 2 (egatega) 


1362 


IDD 


BANANOID (vga) 


J209 


IDD 


MACADAM BUMPER (cga) 


J214 


IDD 


MASTER BLASTER (cga/PCXT) 


J597 


IDD 


NIGHT MISSION (cga) 


J250 


IDD 


PIMBALL COLLECTION (PC -XT) 


J257 


IDD 


POPCORN (cga) 


H140 


IHD 


TRISTAN (386tega) 


BfLHARE CARTAS 


H060 


IHD 


AMARILO SLIM POKER (vga) 


X63 


IDD 


BIHAR 3D (egatega**) 


X16 


IDD 


BLACK GAMMON (egatega) 


X59 


IDD 


CANA ST RA (cga) 


X62 


IDD 


DOMINO (egatega) 


1265 


IDD 


DRAW POKER (cga) 


5477 


IDD 


JWvMY WHITES SNOOKER (vga) 


J247 


IDD 


PC POOLS CHALLENGE (cga) 1 



1363 


2DD 


ANUETED MEMORY (vga) 


X20 


IDD 


ATOMIX (vga) 


X30 


2DD 


BATTLE CHESS (egatega) 


H305 


BHD 


BATTLE CHESS 4000 (vgatevga) 


X74 


IDD 


CHESS MASTER 200 (cga) 


H062 


2ND 


CHESS MASTER 3000 (vga) 


H31 1 


2HD 


CIVILIZATION (vga) 


1302 


IDD 


COLUMMS (ega) 


X09 


IDD 


CYRUS XADREZ 3D (egatega) 


1403 


IDD 


DYNAMO (DAMAS) (egatega) 


J125 


IDD 


FACES (cga**) 


J040 


3DD 


FACES TETRIS (vga) 


JI90 


3DD 


LEMMNGS 1 (vga) 


H40O 


2HD 


LEMMINGS 2 TRIBLES (vga) 


1101 


6DD 


LIVING JIG SAW (vga) 


JB98 


IDD 


LOGICAL (vga) 


HI 93 


IHD 


MKXEY JIG SAW (egatega) 


J220 


IDD 


MONOPOLY (ega) 


1307 


IDD 


MONOPOLY 2 0 (egatega) 


J939 


IDD 


PACMAN (ega^C- XT) 


1219 


IDD 


PACMAN (egatega) 


H4I8 


5HD 


POPULOUS II (vga) 


H41 6 


IHD 


SARGON V (vga) 


J303 


IDD 


TETRIS (cga) 


H435 


IHD 


TETTRIS CLASSIC (vga) 


H393 


2HD 


THE HUMANS (vgatevga) 


H433 


2HD 


THEATRE OF WAR 


1160 


IDD 


X-MAS LEMMNGS (vga) 


1109 


IDD 


ZAPKOV (xadreztegatega) 





X34 


IDD 


BARBARIAM (ega/ega**) 


1250 


3DD 


BRUCE LEE LIVES (egatega) 


X30 


2DD 


DRAGON NNJA (egatega) 


J104 


2DD 


DOUBLE DRAGON (egaAan) 


J106 


IDD 


DOUBLE DRAGON II (cga) 


1151 


30 D 


DOUBLE DRAGON H (egatega) 


H451 


IHD 


DOUBLE DRAGON IN (vga) 


H320 


IHD 


FIRST SAMURAI (vga) 


JUS 


2DD 


GOLDEN AXE {egatega**) 


J103 


IDD 


KARATEKA (cga) 


J746 


IDO 


NINJA GAIDEN (egatega) 


1331 


IDD 


NINJA RABBIT (egatega) 


J644 


4DD 


PANZA KICK BOXXING (vga) 


HO 73 


IHD 


PIT FIGHTER (vga) 


J274 


200 


RASTAN SAGA (cga] 


J566 


2DD 


RENEGADE (egatega) 


J295 


2DD 


SHNOBI (egatega) 


J515 


3DD 


STREET FIGHTER MAN (egatega) 


J338 


2DD 


STREET FIGHTER (ega/ega) 


H461 


5HD 


STREET FIGHTER 1 (vga) 


J367 


4DD 


TARTARUGAS NNJA (egatega) 


X90 


0DD 


TARTARUGAS NNJA 2 (vga) 


Hill 


IHD 


TARTARUGAS NNJA 3 (vga) 


J401 


40 D 


TONGUE OF FATMAN (egatega) 


H1 19 


IHD 


WRETLE MANIA (vga) 



ATENDEMOS SEU PEDIDO ATE AS 21 HORAS POR TELEFONE 






























ROTINA 



Numeros escritos por extenso 



Extenso 



Mauro Lucio da Silva 



0 programa que apresento transforma nOmeros, 
at6 999,999,999.99, no seu correspondente por extenso. 
Seu uso & facil, sendo desnecessSrio detalha-lo. 

Espero que ele possa serutil para quern desenvolve 
sistemas contebeis. 



S MAURO LOCIO DA SILVA programa em Basic, Cobol e 
JH!=] Clipper. 



EXTENSO.PRG 



• CRIA E INICIALIZA VARIAVEIS E RECEBE 0 
NUMERAL 

SET FIXED ON 
SET DECIMALS TO 2 

B3QWHl(2Ol)+0R(2O5)^CIR(lj87)-tCfR(186)-fCHi(U38)-tCIR(2O5)+; 
CHR(200 ) +CHR( 186 ) +CHR( 032 ) 

CLEAR 

DO WHILE .T. 

VALEXT=0 

SET COLOR TO /BG 

9 00,00 SAY SPACE (80) 

0 24,00 SAY SPACE (80) 

0 00,00 SAY "Transforma numerals em 

extensos" 

SET COLOR TO B 
0 07,00 CLEAR TO 23,79 
SET COLOR TO W/BG 
0 03,20,05,55 BOX BORDA 
0 04,22 SAY "Entre com Valor; " GET 
VALEXT PICTURE *999,999,999.99" 

READ 

IF LASTKEY ( ) =27 
EXIT 
ENDIF 

DO EXT_VAL 
ENDDO 
QUIT 

* RE LAC IONA E SEPARA 0 NUMERAL EM 4 
PARTES ******** 

PROCEDURE EXT_VAL 

PRIVATE TXTBLS [03] , TXTBLP[03], CT[09], 
DZ [09] , UN[09], CZ[10], CRZ 
TXTBLS [01]= "Cruzeiro" 



TXTBLS [02]= "Mil" 


TXTBLS [03]= "Milhao" 


TXTBLP [01] = "Cruzeiros 1 


TXTBLP [02] = "Mil" 


TXTBLP [03]= "Milhoes" 


EXT="" 




UXT="" 




CT [01] * 


"Cento" 


CT [02] = 


"Duzentos" 


CT [03] ■ 


"Trezentos" 


CT [04] = 


"Quatrocentos" 


CT [05] = 


"Quinhentos" 


CT [06]= 


"Seiscentos" 


CT [07] = 


"Setecentos" 


CT [08] = 


"Oitocentos" 


CT [09] = 


"Novecentos" 


CZ[01] = 


"Dez" 


CZ [02] = 


"Onze" 


CZ [03 ] = 


"Doze" 


CZ [04] = 


"Treze" 


CZ [05] = 


"Quatorze" 


CZ [06] = 


"Quinze" 


CZ [07] = 


"Dezesseis" 


CZ [08] = 


"Dezessete" 


CZ [09] = 


"Dezoito" 


CZ[10]= 


"Dezenove" 


DZ [01] = 


"Dez" 


DZ [02] = 


"Vinte" 


DZ [03] = 


"Trinta" 


DZ [04] = 


"Quarenta" 


DZ [05] = 


"Cinquenta" 


DZ [06] = 


"Sessenta" 


DZ [07] = 


"Setenta" 


DZ [08] = 


"Oitenta" 


DZ [09] = 


"Noventa" 


UN[01]= 


"Urn" 


UN[02]= 


"Dois" 


UN[03]= 


"Tres" 


UN[04] = 


"Quatro" 


UN[05]= 


"Cinco" 


UN[06]= 


"Seis" 


UN[07]= 


"Sete" 


UN[08]= 


"Oito" 


UN[09]= 


"Nove" 


CRZ-"" 





Micro: PC XT/AT 
Memdria: 640 Kbytes 
Video: CGA/EGA/VGA 
Unguagem: Clipper 
Requisites: Nenhum 



/IICRO SISTEMAS 






UXT-STR(VALEXT) 

EXT=ALLTRIM (UXT ) 

MILH-"" 

MILS-"" 

UNID-"" 

CENT="" 

TX1-"" 

TX2-"" 

TX3="" 

TX4="" 

IF LEN(EXT) =12 

MILH-SUBSTR ( EXT, 01,3) 
MILS-SUBSTR ( EXT , 04,3) 
UNID-SUBSTR ( EXT ,07,3) 
CENT-SUBSTR (EXT, 11, 2 ) 

ENDIF 

IF LEN(EXT) =11 
MILH=MILH+"0 " 

MILH=MILH+SUBSTR(EXT, 01,2) 
MILS-SUBSTR (EXT, 03,3) 
UNID-SUBSTR (EXT, 06,3) 
CENT=SUBSTR ( EXT ,10,2) 

ENDIF 

IF LEN(EXT) =10 
MILH=MILH+"00 “ 
HILH=MILH+SUBSTR(EXT, 01, 1) 
MILS-SUBSTR ( EXT, 02,3) 
UNID-SUBSTR ( EXT, 05,3) 
CENT-SUBSTR ( EXT ,09,2) 

ENDIF 

IF LEN(EXT) =09 

MILH=MILH+"000 " 
MILS-SUBSTR (EXT, 01,3) 
UNID-SUBSTR (EXT, 04,3) 
CENT-SUBSTR (EXT, 08,2) 

ENDIF 

IF LEN(EXT) -08 

MILH-MILH+"000“ 
MILS-MILS+"0" 
MILS-MILS+SUBSTR ( EXT , 01,2) 
UNID-SUBSTR (EXT, 03,3) 
CENT-SUBSTR (EXT, 07,2) 

ENDIF 

IF LEN(EXT) -07 

MILH-MILH+ "000" 
MILS-MILS+"00“ 
MILS-MILS+SUBSTR (EXT, 01, 1) 
UNID-SUBSTR (EXT, 02,3) 
CENT-SUBSTR (EXT, 06,2) 

ENDIF 

IF LEN(EXT) -06 

MILH=MILH+"000" 

MILS-MILS+"000" 

UNID-SUBSTR ( EXT ,01,3) 
CENT-SUBSTR ( EXT, 05,2) 

ENDIF 

IF LEN(EXT) -05 

MILH=MILH+"000 " 
MILS=MILS+"000 " 
UNID=UNID+"0 “ 
UNID-UNID+SUBSTR ( EXT ,01,2) 
CENT-SUBSTR (EXT, 04,2) 

ENDIF 

IF LEN(EXT) -04 

MILH-MILH+"000" 

MILS-MILS+"000" 

UNI D-UNI D+ " 0 0 " 



IF SUBSTR(EXT, 1, 1) ="0" 

UNID-"" 

UNID-UNID+"000 H 
CENT-SUBSTR (EXT, 03,2) 

ELSE 

UNID-UNID+SUBSTR (EXT, 01, 1) 
CENT-SUBSTR (EXT, 03,2) 

ENDIF 

ENDIF 

DO MILHAO 
DO MIL 

IF VAL (MILH) >0 .OR. VAL(MILS)>0 
IF VAL (UNID) -0 

CRZ-CRZ+CHR(32 ) 

CRZ=CRZ+"de Cruzeiros Reals" 
ENDIF 
ENDIF 

DO UNI DADE 
DO CENTAVO 

PRIVATE TX [4] 

DO SEPARA 

SET COLOR TO /BG 

9 14,00 SAY REPLICATE ("-",80) 

9 15,00 SAY SPACE (80) 

9 16,00 SAY SPACE ( 80 ) 

9 17,00 SAY SPACE (80 ) 

9 18,00 SAY SPACE (80) 

9 15,15 SAY TX [1] 

9 16,15 SAY TX[2] 

9 17,15 SAY TX [3 ] 

9 18,15 SAY TX[4] 

9 19,00 SAY REPLICATE ("-",80) 

OP-SPACE (1) 

9 24,00 SAY SPACE (80 ) 

DO WHILE .T. 

9 24,00 SAY "Imprimir? <S/N»s » GET 
OP PICTURE " I " VALID (OP$»SN") 

READ 

IF LASTKEY ( ) =27 
LOOP 
ENDIF 

9 24,00 SAY SPACE (80) 

IF OP="N" 

RETURN 

ELSE 

DO IMPRIMA 
RETURN 
ENDIF 
ENDDO 

* CONVERTS PARTE PARA MILHAO * 

PROCEDURE MILHAO 
IF VAL (MILH) -0 
RETURN 
ENDIF 
A-0 

A- VAL ( SUBSTR (MILH, 1,1)) 

IF A>0 
IF A-l 

IF VAL ( SUBSTR (MILH, 2,2) ) -0 
CRZ=CRZ+"Cem" 

ELSE 

CRZ-CRZ+CT [A] 

ENDIF 

ELSE 

CRZ-CRZ+CT [A] 

ENDIF 

ENDIF 

A- VAL ( SUBSTR (MILH, 2 , 2 ) ) 

IF A>9 .AND. A<20 
A-A-9 

IF VAL (SUBSTR (MILH, 1, 1) ) >0 
CRZ-CRZ+" e " 

ENDIF 
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ENDIF 
IF A > 0 

CRZ=CRZ+DZ [A] 

ENDIF 

ENDIF 

A=VAL ( SUBSTR (DNID, 3,1)) 

IF A>0 

IF VAL (SUBSTR (DNID, 2,1) ) >0 .OR. 
VAL( SUBSTR (UNID, 1, 1) ) >0 
CRZ-CRZ+" e " 

ENDIF 
IF A > 0 

CRZ=CRZ+UN [A] 

ENDIF 

ENDIF 

ENDIF 

CRZ=CRZ+CHR(32 ) 

A=VAL( SUBSTR (UNID, 1,3) ) 

IF A>1 

CRZ=CRZ+TXTBLP [01] +CHR(32 ) +"Reais" 
ELSE 

CRZ=CRZ+TXTBLS [01] +CHR (32) +"Real " 
ENDIF 
RETURN 

* CONVERTE PARTE PARA CENTAVO * 

PROCEDURE CENTAVO 

IF VAL (CENT) =0 
RETURN 
ENDIF 

IF VAL (UNID) >0 .OR. VAL(MILS)>0 .OR. 

VAL (MILH) >0 

CRZ=CRZ+" e " 

ENDIF 

A=0 

As VAL ( SUBSTR ( CENT, 1,2)) 

IF A>9 .AND. A<20 
A=A-9 

CRZ=CRZ+CZ [A] 

ELSE 

A= VAL ( SUBSTR ( CENT, 1,1)) 

IF A>0 

IF A > 0 

CRZ=CRZ+DZ [A] 

ENDIF 

ENDIF 

A=VAL ( SUBSTR ( CENT ,2,1)) 

IF A>0 

IF VAL (SUBSTR (CENT, 1, 1) ) >0 
CRZ=CRZ+" e " 

ENDIF 
IF A > 0 

CRZsCRZ+UN [A] 

ENDIF 

ENDIF 

ENDIF 

CRZsCRZ+CHR (32) 

A= VAL ( SUBSTR ( CENT ,1,2)) 

IF A>1 

CRZ =CRZ+" Centavo a" 

ELSE 

CRZ=CRZ+"Centavo" 

ENDIF 

RETURN 

* SEPARA O CRZ EM 4 STRINGS DE 50 POSICOES 

PROCEDURE SEPARA 
TX [ 1] ="" 

TX[2] 

TX [ 3 ] - " " 

TX [ 4 ] = " " 

PALAVRAs"" 

1=1 

CRZsCRZ+CHR (32) 

Y»0 

YsLEN(CRZ) 

FOR T=1 TO LEN(CRZ) 



IF SUBSTR(CRZ, T, 1) =" - 
A=0 

A=A+ ( LEN ( TX [ I ] ) +LEN ( PALAVRA) ) 

IF A < 50 

IF LEN(TX [I] ) =0 

TX [ I ] =TX [ I ] + PALAVRA 
ELSE 

TX [ I ] =TX [ I ] +CHR (32) 

TX [ I ] sTX [ I ] + PALAVRA 
ENDIF 
PALAVRAs'"' 

ELSE 

B=0 

B=50-LEN (TX [I] ) 

TX [ I ] =TX [ I ] +REPLICATE { , B ) 
1 = 1+1 

TX [ I ] =TX [ I ] + PALAVRA 
PALAVRAs'”’ 

ENDIF 

ELSE 

PALAVRA= PALAVRA+SUBSTR { CRZ , T , 1 ) 
ENDIF 
NEXT T 
B=0 

B=50-LEN(TX[I] ) 

IF B>0 

TX [ I ] =TX [ I ] +REPLICATE ( "*" , B ) 

ENDIF 

IF LEN(TX[1] )=0 

TX [ 1 ] sREPLICATE ("*", 5 0 ) 

ENDIF 

IF LEN(TX [2] ) =0 

TX [ 2 ] =REPLI CATE ( " * " , 5 0 ) 

ENDIF 

IF LEN(TX [3 ] ) =0 

TX [3] sREPLICATE ("*",50) 

ENDIF 

IF LEN(TX[4])=0 

TX [4 ] sREPLICATE ("*", 50 ) 

ENDIF 

RETURN 

* IMPRIMI O VALOR POR EXTENSO* 

PROCEDURE IMPRIMA 
DO WHILE ,T. 

IF .NOT. ISPRINTERO 

0 24,00 SAY "Imp. n&o estA 
preparada. <ESC>-Retorna, <ENTER>- 
Prossegue" 

TECLA= INKEY ( 0 ) 

IF TECLA=27 

9 24,00 SAY SPACE (80) 

RETURN 

ENDIF 

IF TECLA=13 
LOOP 
ENDIF 
LOOP 
ENDIF 
EXIT 
ENDDO 

9 24,00 SAY SPACE (80) 

9 24,00 SAY "Imprimindo. . ." 

SET DEVICE TO PRINTER 
9 PROW ()+3,00 SAY "== 
"+TRANSFORM(VALEXT, "999, 999, 999.99-)+" 
"+REPLICATE ( "=", 62) 

9 PROW ()+l,15 SAY TX[1] 

9 PROW ( ) +1, 15 SAY TX[2] 

0 PROW ()+l,15 SAY TX[3] 

0 PROW ()+l,15 SAY TX[4] 

0 PROW ()+l,00 SAY REPLICATE ("=",80) 

SET DEVICE TO SCREEN 
0 24,00 SAY SPACE (80) 

RETURN 
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FoxPro 

for Windows' 



Usando FoxPro for Windows 
versao 2.5 

Sal Ricciardi 
Editora Campus 

540 pbglnas 





r Fernando de Castro Velloso 

IN FORMAT ICA 
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Editors Campus 



INFORMATICA 
Conceitos Basicos 

Fernando de Castro Velloso 
Editora Campus 

468 pqgirtas 



Usando Microsoft FoxPro for windows vers~ao 2.5 e o seu 
Guia para utilizacao e compreencao deste poderoso 
gerenciador de banco de dados e da linguagem Xbase 
padrao que o controia. Se precisar de uma explicacao 
detalhada de um projeto de banco de dados ou tiver de 
pesquisar rapidamente um procedimento para utilizar uma 
das mais ferramentas de consulta do FoxPro, voce vai 
encontrar as respostas aqui. 

E quando estiver pronto para passar para topicos mais 
avancados, o especialista em banco de dados, Sal Ricciard, 
estara pronto para ser seu guia com dicas, estrategias e 
solucoes nao encontradas na documentacao do produto. 
Cada caprtulo introduz pelo menos um topico fundamental 
e reforca os procedimentos corretos com exemplos praticos, 
de modo que voce vai aprender com rapidez e lembrara do 
que aprendeu. 



Destinado a estudantes de curso de introducao a 
informatica, INFORMATICA: CONCEITOS BASICOS apresenta 
aos alunos os fundamentos da informatica e os introduz 
progressivamente nos aspectos mais importantes do universo 
dos computadores, memorias, sistemas operacionais, 
unidades de entrada e satda, bancos de dados, linguagem, 
tecnologias baseadas em objetos, etc. 

Repeleto de ilustracoes, exemplos, exercicios e respostas, 
este liwo foi escrrto por um experiente professor de curso de 
introducao a informatica para ser umguia no seu aprendizado. 

A apresentagao dos assuntos e feita em uma linguagem 
agradavel e clara, resulta de um livro de grande cobertrura, 
fundamental como ponto de apoio para o conhecimento. 

Para completar, apresenta uma sinopse historia da 
informatica no Brasil, um glossario e uma bibliografia que 
apliarao ainda mais o seu conhecimento. 




IBM PC: Dicas e Macetes de Software VOL. 1 E 2 

Laercio Vasconcelos 

Laercio Vasconcelos Computagao Ltda. 

Dicas e Macetes de Software volumes 1 e 2 foram escritos para 
proporcionar aos usuarios comuns de micros XT, 286, 386, 486 e 
Pentium o alcance de tecnicas dominadas apenas pelos feras da 
microinformatica. E apresenta solugao para centenas de problemas 
decorrentes do uso do micro, evitando dores de cabeca e agilizando seu 
tempo. 

No volume 1 voce vai saber mais sobre: 

Copias de disquetes protegidas, Acelerar a velocidade do disco, 
Recuperardiscosformatados, Compactararquivos Buffers de impressora, 
Backup, Medidas de protegao, Medigao de desenpenho, Otimizar o seu 
CONFIG.SYS e o AUTOEXEC.BAT, etc. 

E no volume 2: 

Gerenciamento de memoria, Como acelerar a velocidade do acesso 
a disco, Recuperagao de arquivos apagados, uso do DOUBLE SPACE e 
do STACKER, Programas Graficos para MS-DOS e Windows, Animagoes 
graficas, Novos comandos para MS-DOS 6, comunicagao de dados por 
MODEM, etc. 
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Se seu 
problems e a 
portabilidade 
de programas 
executaveis e 
arquivos de 
dados... 



RM/COBOL 

O SISTEMA DE PRODUWO DE 
APLICAGOES COMERCtAIS. 



STANDARD MUNDIAL 

- 255 chaves de acesso direto 

- Criagao de Pop-up Windows 

- Leitura "Up & Down” de arquivos 

- Estrutura Client-Sever LAN e RDBMS 

- Mais de 2.000.000 Sistemas em uso 

RM/PANELS 

Gerador Automatico de Telas 
Sistema WYS/WVG 

RM/COMPANION 

Gerador Automatico de Relatorios 

- Gera Programa Fonte 

- Gera Querys ao Usuario Final 

RM/GRAPHS 

Gera Graficos de negocios 
- 2D/3D 

- Definigao Automatica de Cores 

RM/C0« 

Ambiente de Desenvolvimento, com editor Janela multipla 
e Desenho Animado 

RM/TOOLKIT 

Familia de Utilitarios 

- Mouse, Modem, Sistema Operacional, etc. 

RM/plusDB 

Interface Transparente com Banco de Dados Relacionais 
-Informix*, Oracle*, Progress*, etc. 

Mantem o Padrao dos Sistemas Abertos reduzindo seus 
tempos de programagao em 80% 

DESENVOLVIMENTO DE APUCAQOES 

Quando voce precisa de ferramentas para o desenvolvimento 
de aplicagoes superiores ao mercado, capacidade & 
funcionalidade & solugao do RDBMS & superior a 4GE RM/ 
COBOL & TOOL’S sao incomparaveis. 

Ferramentas de Desenvolvimento & Superficies de Trabalho 

0 RM/Cobol possui um poderoso de ferramentas integradas 
para definir e construir aplicagoes tais como: Menus Ring- 
Style, Pop-Down & Pull-Down, e ainda Dialog Boxes, Forms 
e Objetos para desenvolvimento de Aplicagoes RM/Cobol, 
oferece maior capacidade e flexibilidade para o 



E o unico caminho! 

desenvolvimento, reduzindo o tempo de manutengao e 
possibilitando uma consistente interface com o usuario. 
Superficies de Trabalho sao interfaces funcionais que 
permitem definir regras de integridade e de negocios. 
Somente o RM/Cobol possui um desenho de interface 
altamente visual e amigavel, possibilitando uma fantastica 
melhoria na produtividade do desenvolvimento de telas, 
estando bem acima dos metodos de codigos convecionais. 
0 Help on line esta sempre presente para consulta. 

Diclonario de Dados 

0 Dicionario de Dados do RM/Cobol e um repositario 
central para definir toda e qualquer informagao usada na 
tela como: Borda, Lay-Out, Cores, Formato dos campos, 
Valiagoes Logicas, Help on line, Mensagens de Ajuda e 
Erro, Prompt de cores campo a campo, e mais. Desta forma 
voce ganha um controle de integridade de dados altamente 
eficiente, com vantagem adicional de uma reduzida 
codificagao. 

Abertura para outros amblentes 

0 RM/Cobol pode acessar outros Bancos de Dados como: 
INFROMIX, ORACLE e no final deste ano PROGRESS, 
INGRESS, pode acesar outras linguagens, atraves de 
"CALL" nas subrotinas. 0 "APLICATION PROGRAM INTER- 
FACE” permite criar subrotinas novas fungoes escritas em 
"C” e Assembler, o que possibilita inclusive acesso a outras 
bases de dados. 



AData 



Representante para Brasil, Argentina, Paragual e Urugual 

ENDEREQO NO BRASIL 

Av. BRIG. FARIA LIMA, 613 - 8« ANDAR CJ 84 
01451-000 - SAO PAULO - SP 
TEL/FAX: (Oil) 829-7891 

ENDEREQO NA ARGENTINA 

Av. CORRIENTES, 821 - 6 s ANDAR (1043) 

BUENOS AIRES 

TEL.: (541) 448-9426/7/8 - FAX: (541) 322-5240 





Ta legal, eu chutei que oTIFe o padrao 
que da a melhor compactagao. Confesso 
que tenho uma certa “simpatia" por ele, 
sem razao nenhuma de ser. E ja que o 
Luis Carlos Cividanes, de Uberaba, 
questionou isto resolvi tirar a prova dos 
nove. 

Notou a figura engragadinha al ao 
lado? Se nao esta ao lado do texto e 
porque o diagramador nao seguiu minha 
orientagao. Bern, essa figura tem 133 x 
178 pixels em preto e branco, ou seja, 
23.674 bits. Como em p&b nao existe a 
necessidade de registro de cor e como normalmente os bits sao 
agrupados em bytes (foi o chefe quern disse isso, portanto...), e de 
se esperar que um arquivo contendo tal imagem possua algo em 
tomo de 2.960 bytes. 

0 que fiz foi gravar esta figura usando diversos formatos e anotar 
o tamanho do arquivo gerado. Como os arquivos acrescentam 
cabegalhos de identificagao, alem de compensarem o final das 
linhas, quando elas nao terminam em bytes completos, era de se 
esperar arquivos um pouquinho maior que o tamanho real da figura. 

Aqui esta o resultado: 



CompuServe GIF 89a 1.846 bytes 

Tagged Image File Format TIFF (LZW) 2.422 bytes 

Word Perfect WPG versao 5.1 2.727 bytes 

GEM Paint IMG 2.848 bytes 



Sun Raster Images RAS 3.236 bytes 

Zsoft Paintbrush PCX versao 5 3.361 bytes 

PC Paint PIC 3.361 bytes 



Grande surpresa, afinal o formato GIF foi produzido para arquivo 
de imagens com 256 cores. Viu s6 Luis Carlos, eu nao estava 
tao errado assim em indicar o T1F, pelo menos em comparagao 
com o cacareco do PCX. 

Ah! eu estava mais do que certo, afinal o GIF tambem usa a 
compressao LZW s6 que tem uma diferenga em relagao ao TIF: a 
imagem e compri mida duas vezes , por isso e que da diferenga. Alem 
do mais, tente usar arquivos GIF com o Ventura Publisher, ou com 
o Page Maker e voce vera que tenho razao. 

Bern, fico por aqui e espero que o pessoal da redagao tenha um 
pouco de piedade e desligue o ar condicionado nestes tempos 
nebulosos (aqui no Rio esta fazendo frio de 32 graus), brrrrrr 

Bob Pixel 



PS: voce ainda nao tem o disco Bitmap 1? 0 primeiro da serie? 
Entao nao perca tempo e mande buscar logo o seu. 0 Bitmap vai 
entrar tambem nos BBS, ou seja, voce pode pedir o disco na PRO 
KIT ou baixar do seu BBS preferido (se ele realmente tiver as Qltimas 
novidades). So aconselho baixar do BBS quern tem modem de 
14.400, pelo menos, pois o arquivo compactado tem 
aproximadamente 900 Kbytes. 
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ANIMAgAO 

A galera que me perdoe, 
mas tava muito mole a segao 
animagao. Tudo mastigado, 
decodificado, ajustado e 
programado. E a criatividade, 
onde fica? 

Entao, o chefe mandou e eu 
cumpro: de agora em diante 
fica como desafio ao leitorcriar 
os roteiros de animagao no 
TOPVIEW. Pura moleza, nao e 
mesmo? E para comegar aqui 
esta umbeb exemplo deveiculo 
em movimento: um caminhao 
radar da epoca da guerra fria. 

Maos a obra! 



Shape 1 




Shape 3 




Shape 4 
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[\y| Com referenda a materia "Comunicagao de 
Dados”, publidado na MS138, de Abril de 94, 
tenho a satisfagao de informar que em Curitiba - PR, o 
future ja chegou nas transmigoes de dados. 

Ao contrarioi do que afirma a referida materia, as SQUID 
BBS, node 12.1241/1 da R.B.T. (Rede Brasileira de 
Teleinfbrmatica), operada pelos SYSOPs Fernando Baibich 
e Ricardo Baibich ja vem utilizando urn modem 28800 
BPS. 

Julio Cesar dos Santos 



PAINEL 



r yT i Sou leitorda revista e usuario 
I rS l de micros PC, Amiga e MSX e 
gostaria de receber mais infor- 
magoes sobre os programas de 
controle de gerenciamento de BBS, 
como e e onde consegui-los e como 
usa-los. Gostaria tambem de 
informagoes sobre os melhores BBS 
cariocas e como acessa-los. 

Venho pedir as informagoes acima 
porqueestou interessadoem montar 
urn BBS. Possuo uma quantidade 
suficiente de shareware para o uso 
em um BBS. 

Comecei a ficar interessado neste 
ramo apos ler a reportagem que 
voces publicaram no No. 138quefoi 
escrita por Eduardo Poyart. Ja 
possuia alguns interesses no 
assunto, possuo o modem e acesso 
a alguns BBS. 

Ficarei grata com a colaboragao de 
voces, agradando uma resposta. 
Leandro Sclammarella Pereira 

Praga Almirante Jaceguai, 7 1 apt.404- Bairro 
de Fatima 

20240-000 - Rio de Janeiro - RJ 



Envie su a correspondenci a para 
Micro Sistemas 
Redagao/Segao Cartas 

Rua Washington Luiz, 9 s, 4Q2 
Rio de Janeiro - RJ 
CEP 20230-900. 

No caso de cartas demasiado 
longas, serao aproveitado 
somente os trechos mais 
impor tes; cartas que nao 
contiverem asstnatura e'en- 
derego do remetente nao serao 
pubiicadas. 
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iw| Compramos um 
«— microcomputador, 
sem ao menor termos 
ideia de suas reais 
utilidades; consultando 
revistas especializadas 
(PC Word, MICRO SISTE- 
MAS, etc.), lendo o 
cademo de informatica e 
etc, assistindo o pro- 
grama informatica e 
negocios e fazendo, 
atualmente, cursos no 
Senac, aos poucos 
estamos nos familiari- 
zando com as maravilhas 
da informatica. 

Conhego um pouco de 
mCisica (toco teclado) e 
possuo um PSR 2500 
Yamara, no qual fago 
higiene mental. 

Leciono matematica e 
minha conpanheira Port- 
ugues; minha filha es- 
tuda desenho artistico, 
e ja o pratica muito bem. 
Nosso micro: 

386 SX 40 Mhz - 4MB - 
HD 85 MB 

Gabinete de mesa - dois 
drivers: 3 1/2 e 5 1/4 
Monitor SVGA Color 14” 
e Mouse 

MS DOS versao 6.21 
instalado 

Nao temos impressora. 
Perguntamos: 0 que 
devemos adquirir para 



utilizar o micro nas 
atividades acima? 

Roberto Osdrio da Costa 
Uma 

R. Eulina Ribeiro, 226 - Bl 03 - 
apt.601 - Eng. de Dentro 
207 45-110 - Rio de Janeiro - RJ 

k — 7 i Gostaria que 
IrSJ voces da revista, 
ou algum leitor, me 
enviassse uma carta 
contendo retinas (em 
Clipper Summer 87) 
sobre a utilizagao de 
mouse nos programas 
nele feitos. 

Renato Luis de Paula 
Alves 

R. Cruzeiro do Sul, 688 - VI. 
Oliveira 

08790-170 - Mogi das Cruzes 
-SP 

[\yi Sou leitor e as- 
rM sinante da MS e 
por varias vezes, sem 
sucesso, consegui uma 
resposta desta, a res- 
peito de uma publicagao 
realizada com o titulo de 
"Do Cobol para o Clip- 
per", Publicada na MS 
95. 

Ficaria muito grata, se 
alguem pudesse me 
ajudar infomnando como, 
e onde encontrar, um ex- 
emplarda referida revista, 



ou mesmo xerox, da 
publicagao, pois em 
outras oportunidades 
que escrevi naao iogrei 
nenhum exito. 

Cosmo Ferreira da Siva 
R. Joaquim Lapas Veiga 
N.666 apto. 43 A 
06040-100 - Osasco - SP 

is — 71 Adquiri a pouco 
IrSI tempo o jogo 
Indianapolis 500 (do- 
minio publico) e, 
conforme o jogo e 
carregado, surge a 
demonstragao onde 
indica atecla ESC para 
dar infcio. A partir dal, 
se da o aparecimento 
de perguntas (em que 
ano esse carro 
ganhou? entre outras). 
Sendo de dominio 
publico naoapresenta 
nenhum arquivo com 
as respostas. 
Agradego os que me 
enviarem as respos- 
tas. 

Marcelo Cogumelo 

R. Almirante Cal. da Graga, 

68 - MSier 

Rio de Janeiro - RJ 
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SUCESSOS EDITORIAIS 




DERFLER JR./FREED, GUIA PC 
MAGAZINE DO WINDOWS PARA 
WORKGROUPS - 324 PAGS 

Guia para obtenpao de informapoes so- 
bre instalapao, recursos para grupos de 
trabalho e compatibilidade. Para usua- 
rios, gerentes e admmistradores de sis- 
temas. 

C6d: 1 - Prepo: 16,75 URV 



PC MAGAZINE, DESVENDANDO 0 
DOS 6 - 676 PAGS 

Este livro baseia-se no mesmo tipo de 
treinamento utilizado com sucesso 
nos estabelecimentos de ensino da 
PC Learning Labs, espalhados nos 
Estados Unidos. AtravSs de disquete 
com exemplos incluldo no livro, o leitor 
aprendera com o metodo mais fScil, 
mais rSpido e mais eficaz. 

C6d: 2 - Prepo : 30/41 URV 



SALEMI, GUIA PC MAGAZINE PARA 
BANCO DE DADOS 
CLIENTE/SERVIDOR - 350 PAGS 

Atraves de explicapoes em linguagem 
Clara e conselhos oportunos, o leitor 
encontrara as tecnologias existentes 
e emergentes para o objetivo de sua 
empresa. 

C6d : 2 - Prepo : 21,10 URV 



PC MAGAZINE, DESVENDANDO 0 
MICROSOFT ACCESS - 576 PAGS 

Obra mais completa em nosso idioma 
sobre este novo produto da Microsoft. 
Ja apresenta os comandos em portu- 
gues, incluindo um disquete com inu- 
meros exemplos 

C6d: 4 ~ Prepo 31,65 URV 





IBPI, DOS 6 

mEtodo RAPIDO -120 PAGS 

Guia essencial para iniciantes e indis- 
pensbvel para quern ja o utiliza. Re- 
cheado de dicas basicas e explicapoes 
praticas e objetivas. 

C6d: 5 - Prepo: 8,31 URV 



IBPI, WINDOWS 3.1 
METODO RAPIDO - 108 PAGS 

£ umguia rapido e eficiente, ideal para 
iniciantes neste novo ambiente opera- 
cional, e indispensavel para quern ja 
conhece e deseja tirar duvidas de for- 
ma Clara, objetiva e rapida. 

C6d: 6- Prepo: 8,31 URV 



IBPI, EXCEL 4 

METODO RAPIDO - 120 pAgs 

Esta obra mostra ao leitor os recursos 
do programs, estudando casos reals e 
que poderao ser usados no dia-a-dia 
de sua atividade e como base para o 
desenvolvimento de trabalhos mais 
complexos. 

C6d: 7 - Prepo: 8,93 URV 



IBPI, WORD.EOR WINDOWS 2.0 
METODO RAPIDO - 200 PAGS 

Amplamente ilustrado, este livro forne- 
ce dicas basicas e explicapoes prati- 
cas e objetivas para os usuarios deste 
excepcional editor de textos. 

C6d: 8 - Prepo: 12,16 URV 
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SIM! Desejo adquirir os livros abaixo relacionados. Sendo assim, envio cheque nominal a 
Livraria e Editora Infobook S.A., no valor total do pedido. Despesas postais por conta da editora. 
Enviar seu pedido para: Rua Washir^ton Luiz, 09 Gr. 402 - Rio de Janeiro - RJ - Cep. 20230-900. 




HACKATHORN, CONECTIVIDADE 
DE BANCOS DE DADOS 
EMPRESARIAIS - 352 PAGS 

Este importante livro fomece uma ava- 
liapao completa dos bancos de dados 
heterogeneos entre corporaqoes, com 
enfase especial na distribuigao de apli- 
capoes empresariais para o desktop 

C6d: 9- Prepo: 19/49 URV 



Valor Total do Pedido: CR$ 

Nome: 

Telefone: 

Empresa: 

C.G.C.: 

Enderepo: 

Cep: Bairro: 

Data: / / 
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Prince of Persia 


75/555 


Tetris 


60/340 


Wolfestein 3D 


80/285 


X-Wing 


50/180 


Prince of Persia II .... 


50/165 


GP 


30/130 


Chess 


20/100 


F15 


30/100 


Doom 


30/90 


Free Cell 


. 10/80 


World Circuit 


. 15/75 


F19 


. 10/70 


Chessmaster 


. 20/70 


Out of this World 


. 10/65 


Angra 1 


. 15/65 


Blockout 


. 35/65 


Sim City 


. 2/60 


Alone in the dark .... 


. 20/60 


Stunts 


. 30/60 


Battle Chess 


. 10/50 


Arkanoid 


. 20/50 


Indy 500 


. 20/50 


Sokoban 


. 15/45 


ILoom 


. 10/40 


ndiana Jones 


. 10/40 


Cyrus 


. 10/40 


7Th Guest 


. 20/40 


Amazonia 


. 20/40 


Wing Commander.... 


. 10/35 


Karateka 


. 15/35 


Lemmings 


. 10/30 


Carmem San Diego 


. 10/30 


Simpsons 


. 10/30 


Monkey Island 


. 10/30 


deles 


. 10/30 


Sim Farm 


. 0/10 


Dune II 


. 0/10 


Golden Axe 


. 0/10 


Nyet 


. 0/10 



SIM 0P1NIA0 VALE DUAS ASSINATURAS 

Voce da a sua opiniao sobre os melhores programas de computador 
do mercado e concorre automaticamente a duas assinaturas anuais da 
primeira revista brasileira de microcomputadores. 



PROCESSADOR DETEXTO 

MS Word 450/1310 

Wordstar 250/880 

Redator PC 0/140 

Write 60/100 

WordPerfect 10/90 

Carta Certa 0/50 

FScil 0/30 

Chiwriter 10/30 

Unitexto 0/20 

Panglos 0/10 

Bestword 0/10 



PLANILHA 




Lotus 1-2-3 


350/1330 


Quatro Pro 


200/710 


Excel 


20/380 


Works 


10/50 


Acess 


0/20 



UNGUAGEM 

CliDDer 


■ 






Visual Basic 

C 

Pascal 


120/360 

30/230 

20/160 


Cobol 


20/120 


Assembler 


30/70 


Dbase 


10/50 



DESTAQUE ESPECIAL 

Modplay 15/45 



SISTEMA OPERACIONAL 


DOS 


690/2390 


Windows 


310/975 


0S2 


0/30 


Unix 


0/20 



ANTI-VIRUS 

Viruscan 


210/1180 


NAV 


60/425 


CPAV 


20/200 


MSAV 


30/120 


TNT 


10/40 


Cure 


0/10 


TBAV 


0/10 



COMPACTADOR 




ARJ 


.. 250/1050 


PKZip 


.. 210/1030 


LHA 


.. 10/100 


ICE 


.. 10/60 


Stacker 


.. 0/30 



EDITOR GRAFICO 




Harvard Graphics .... 


50/210 


Banner 


20/200 


Graphos III 


45/105 


Paint Brush 


30/100 


Autodesk Animator.. 


10/60 


Print Master 


0/40 


Power Point 


0/30 


Print Shop 


0/20 


Dr Genius 


10/20 



CAD / EDITOR 3D 

Autocad 


90/550 

10/170 


3D Studio 


3D Image 


10/30 


Professional Cad .... 


20/30 


Microstation 


10/20 


Ted 3D 


0/10 





UTILITARIOS 

PCTools 


.... 210/1080 


Norton 


.... 180/830 


XTGold 


.... 60/180 


Sidekick 


.... 30/90 


Becker Tools 


.... 0/70 


Foxy Tools 


.... 20/50 



DESKTOP PUBLISHING 


Corel Draw 


... 150/780 


Page Maker 


... 110/470 


Ventura 


... 50/240 


Envision Publish .. 


... 10/50 


Fantavision 


... 10/40 


MS Publisher 


... 0/30 



MELHOR 




PIOR 




Maxell .... 


390/1 560 Nashua... 


350/1470 


Verbatn . 


. 110/460 Vertsatm .. 


110/430 


Sony 


. 40/180 VAT 


50/180 


Nashua .. 


. 10/80 


Precision . 


40/160 


Dysan .... 


. 30/90 


Basf 


20/110 


TDK 


. 10/60 


Kao 


10/70 


3M 


. 10/50 


Memorex 


0/50 


JVC 


. 0/40 


Sony 


0/40 


Basf 


. 10/30 


ABC Systems 0/30 


Kao 


. 10/20 


3M 


0/10 






Teck 


10/20 



Responda as questoes de acordo com a sua preferencia. 
No caso de usar mais de um programs de mesma classe, 
escolha apenas aquele que julga sero mais adequado para 
o seu uso. Nao imports a origem do software. Escreva de 
forma clara e legivel o nome do programs. Remeta para 
ENTER PRESS Editors Ltda - Rua Washington Luis, 9 / 402 
- Rio de Janeiro/RJ - CEP 20230-900 

Nome: 

Enderego: 

Cidade: UF: 

CEP: Video: 



ASSINATURA ANUAL 

Marcus Fulvio Machado - Araxa - MG 
Edson da Silva Bentes - Porto Trombetas - PA 



Processador de texto: 

Planilha eletronica: 

Linguagem de programagaoi 

Utilitarios: 

Sistema OperacionaL 

Anti-virus: 

Compactador: 

Editor Grafico: 

Desktop Publishing: 

Cad/editores 3D: 

Jogo 1: 

Jogo 2: 

Outro: 

Melhor disquete: 

Pior disquete: 



66 MICRO SISTEMAS 


















bbi - shopping oeMae 



O sistema de BBS mais avangado do planeta, agora no Brasil para voce ! ! 



Esquega tudo o que voce ja viu sobre BBS, e conhega o 
um sistema de BBS super avangado uti- 
lizando o protocolo grdfico de 4 a geragao RIPscrip, que 
alem de melhorar a velocidade de transmissao, permite a 
visualizagao de graficos com alta-resolugao no estilo do 
Prodigy e America Online. Voce nao precisa mais decorar 
nenhum comando, apenas clicar com seu mouse. 



Rodando 
The Major BBS, o 
gerenciador de BBS 
mais avangado do 
planeta. 




Uma completa Biblioteca de Arquivos contendo uma 
grande variedade de programas demos e shareware nas 
mais variadas categorias, Jogos, Utilitarios, Fontes, Anti- 
Virus, Editores, Desktop, Educagao, Multimidia, 
ComunicagSo, ProgramagSo, Arquivos de Som, e tudo o 
que voc§ imaginar para DOS e WINDOWS. Tambem uma 
ampla Biblioteca de Imagens Digitalizadas, dos mais 
diversos assuntos, inclusive fotos XXX-Rated. 







... Biblioteca de Arquivos 
de facii utilizagao, com 
pesquisas por paiavras 
chave e marcagao para 
download posterior. 




Um avangado sistema de Correio Eletrdnico (E-mail), com 
su porte para envio de Arquivos Anexados, Copias 
Carbono, Listas de Distribuigao, Aviso de Recebimento, 
Editor de Texto Full Screen com todos os comandos no 
seu video atraves de botdes. Teleconferences Online 
para voce baterpapo com outros usuario, expandindo seu 
conhecimento e ampliando o seu relacionamento com 
pessoas que tenham o mesmo interesse. 



... com uma interface 
totaimente grafica, com 
suporte para mouse, 
facilitando o seu acesso 
sem a necessidade de 
decorar comandos 
complicados. 




O SHOPPING OnLine, onde voce pode adquirir produtos 
e servigos dos mais variados tipos com descontos, sem 
precisa r sair da sua casa ou do seu escritorio. Atravds do 
seu proprio computador, voce faz a cotagao de pregos, 
escolhe onde deseja comprar, a forma de pagamento e 
o mdtodo de entrega. Voce recebe o produto rapidamente 
no seu enderego, sem burocracia, filas e com toda a 
comodidade. 

Voce ainda tern a sua disposigao uma Central para Distribuigao de FAX, pode participar de Concursos com 
vdrios premios, servigo de Boletins & Novidades e muito mais . . . 

MlConncclion 

Caixa Postal 108 - Santo Andre - SP - 09001-970 - Telefone: (011)412-7610 - Fax: (011) 444-1167 




Shopping OnLine, 
aqui voce pode comprar 
diversos produtos, 
a pregos reduzidos, 
num piscar de olhos. 






Valor da URV do dla de envlo da Inscrlgao 



Nao entre em fila e pague menos. 
Peca ja o seu cartao Fenasoft 

n#. && - 










CUSTO DO CARTAO 


De 1 a 31 de maio 


5 URVs* 


De 1 a 30 dejunho 


8 URVs* 


De 1 de julho ate o evento 


10 URVs* 



Envie seu pedido juntamente com cheque nominal a 
Fenasoft Feiras Comerciais Ltda., Av. Osmar Cunha, 
251, 9° andar, Centro, Cep 88015-100, Floriand- 
polis - SC, Tel (0482) 24.4305, Fax (0482) 23.5249. 
Atei^ao - Cartoes dos anos anteriores continuam 
valendo para a Fenasoft'94. Se voce ja possui o seu 
cartao Fenasoft e, por algum motivo, deseja troca-lo, 
deve enviar o pedido juntamente com um cheque de 
lOURVs. 
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19 a 22 de julho 
Anhembl - Sao Paulo 



I pioihido (« cnii iidri <lc manor** do 16 nnoii 



HU ULLJJ 



DATA DE NASCIMEN TO 

m □□ □□ 





1 - Qual seu cargo na empresa onde trabalha? 






President® 


E 




Diretor Superintendente 


1 




Representante de Vendas 


A 




Vice-Presidente 


F 




Gerente de Departamento 


J 




Analista de Sistemas 


B 




Sbcio 


G 




Controller/T esoureiro 


K 




Digitador 


C 




Gerente Geral 


H 




Consultor/ Assessor 








D 




2 - Quantos empregados tern sua empresa? 




F 




Mais de 5000 


E 




250 a 499 


1 




25 a 49 


G 

H 




1000 a 5000 


F 




100 a 249 


J 




10a 24 




750 a 999 


G 




75 a 99 


K 




5 a 9 






500 a 749 


H 




50 a 74 


L 




Menos de 5 






3 - Qual seu poder de decisdo para compras na empresa? 


A 


B 


Autoridade total 


c 


B 


Autoridade limitada 


E 


E 


Pouco envolvimento 


B 


Autoridade alta 


D 


Recomenda piodutos 


F 


Nenhum envolvimento 


D 




4 - Qual o volume de vendas de sua empresa? 


E 

F 




US$ 500 milhoes ou mats 


E 




US$ 25 a 49 milhoes 


1 




USS 500 a 749 mil 






US$ 100 a 499 milhoes 


F 




USS 10 a 24 milhoes 


J 




USS 250 a 499 mil 






US$ 75 a 99 milhoes 


G 




US$ 1 a 9 milhoes 


K 




USS 100 a 249 mil 






US$ 50 a 74 milhoes 


H 




USS 750 a 999 mil 


L 




menos de USS 1 00 mil 





5 - Qua I a principal area de ctuaqao de sua empresa? 

Q C Revenda de Per‘rf6ricos 
R LI Fabricante de Suprimentos 
S LI Revenda de Suprimentos 
T LI Bureau de Servigos 
U LJ Grdfica 



□ Govema mental 

□ /^ricultura, Mineragoo, Petrol eo 
I] Transportes 

U Comunicagao 
LJ Manufatura 

LJ Financeira / Contabilidade 
O Seguros / Imobiliaria 
M6dica / Saude 



I LJ Educacional 
J LJ Industrial 
K LJ Construgao Civil 
L LJ Fabricante de Software 
M LJ Revenda de Software 
N LJ Fabricante de Hardware 
O LJ Revenda de Hardware 
P LJ Fabricante de Perif6ricos 



V C Jomalismo 
WLJ Editora 



6 - Quais as principais aplicaqoes do computador na sua empresa? 

C Contabilidade G LJ Desenv. de aplic. de programas 

LI Comunicagao H LJ Control® de processo / manufatura 

□ Gerenciamento de Bco. de Dados I LJ Centffica / Engenharia 

LI Correio Eletrdnico J LJ Editor de Textos 

LI Desk Top / Cad Cam K LJ Gerenciamento de Processos 

LJ Design Grafico / Multi midia 



Fcnqy>Ft 94 



